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1.0 GENERAL PROGRAM INFORMPTION 
1.1 ABSTRACT 
THE RX11 aYeTen | RELIABIL ONS TsTS OF SELECTABLE 


itine esttns A ig fa fel Ee 


sata ereets mre THE PROGRAM ACCUMULATES 


. COMPLETED PASSES OF THE PROGRAM 

. NUMBER OF RESTARTS: 
C. NUMBER OF SECTORS WRITTEN/READ 
D. RE AND UNRE FAULTS AS FOLLOWS: 
PARITY ERRORS 
ERROR FLAG 
INTERRUPT I: 

a f 

CRC NO DATA 


; DELETED DTA HARK ERRORS 


- WRITE ERRORS 
10. READ ERRORS 


cE Ee 
MEETECTED PER TRACK P TRACK PER DRIVE. 


H. Tore. OF 
THE ABOVE INFORMATION IS REPORTED BY RUNNING THE ERROR 
DUMP PROGRAM. 


NY 


1.2 SYSTEM REQUIREMENTS 
1.2.1 HARDWARE REQUIREMENTS 

THE FOLLOWING EQUIPMENT IS REQUIRED. 
A. POP-11 SERIES OF COMPUTER WITH MIN 8K MEMORY 
ee ey ee 
A DISKETTE MUST BE INCLUDED WITH EACH DRIVE TESTED. 
C. CONSOLE TELEPRINTER 
| 1.2.1 SOFTWARE REQUIREMENTS 
| 


THIS PROGRAM ASSUMES Mel Ry RX11 INTERFACE DIAGNOSTIC 
( MAINDEC - 11 - DZRXB-# ) HAS BEEN SUCVESSFULLY RUN ON THIS SYSTEM. 


G OPERATING INSTRUCTIONS 
+0. _ OUTLINE OF OPREATING PROCEDURE 





2.1 


2.2 


2.2.1 


THE STANDARD OPERATING PROCEDURE FOR THE RX11 RELIABILITY 
TEST (TO RUN ALL TESTS ON BOTH DRIVES WITH NO OPERATOR 
INTERVENTION VIA THE SWITCH REGISTER) IS AS FOLLONS: 

o — _ Fe tpre Be FROM_A DISKETTE, REPLAC 
ire ere S HOEDE WITH aE aren DISKETTE” 

. START THE PROGRAM RUNNING AT LOCATION 200 
¢. THE PROGRAM WILL TYPE OUT THE FOLLOWING: 

: NAME AND REVISION 
é. RX11 REGISTER ANU VECTOR ADDRESSES 
4. SE ee “TEST. AND “S"EQUENCE 
IT THEN STARTS RUNNING UNDER THOSE CONDITIONS 
D. IF THERE ARE NO ERRORS AT THE END OF THE COMPLETED PASS 
A “D" AND “BELL” IS TYPED,AND THE PROGRAM WILL CONTINUE 
ON FOR ANOTHER PASS. 
E. HALT THE PROGRAM AS FOLLOWS: 


1. IF THERE IS A HARDWARE oF base. REGISTER, PUT SW 14 
UP TO HALT AT THE END OF 


2. IF IS NO SWITCH REGISTER, OR TO HALT 
AT ANY TIME, HALT THE PROCESSOR. 


LOADING PROCEDURE 


LOAD THE PROGRAN NTO WENORY USING STANDARD PROCEDURE FOR 
BINARY PAPER T 


MAKE SURE THAT THE TOTAL SYSTEM IS READY FOR OPERATION, 
DISKETTE INSERTED CORRECTLY, DOORS CLOSED ON DRIVES TO’ BE 
TESTED, EIC. 

STARTING ADDRESSES 

THE PROGRAM HAS THREE (3) STARTING LOCATIONS. 

INITIAL START (LOC. 200) 

THIS STARTING LOCATION INITIALIZES THE PROGRAM AS FOLLOWS: 
A. CLEARS ALL 

Tepes out RX11 ECISTER SORA a CTOR ADDRESSES BEING USED 
TYPES She DRIVE BD Teer oF SEFTON Ines “OTESTP™ , 
INITIATES THE COLLECTION OF STATISTICAL DATA PERTAINING 
TO THE OPERATION OF THE RX11 SYSTEM. 


B 

C. 
D. 
E. 


| 
| 


nner erage er RENOIR — a - — 


2.2.2 


2.2.3 


2.3 
2.3.1 


ERROR DUMP (LOC. 204) 

THI TARTING DIRECTS THE PROGRAM TO PRINT OUT 
LAST “INI Teer a Tite Oe Te FOE PRT 

iat OUT MATE TNPORRA ORMATION DOES NO SEs TRoy PRIN TH OA 

ART CAN TCA Be INI ITIATED AND INFORMATION WILL CONTINUE 

aS Be COLE 

OPERATOR ACTION BEFORE STARTING PROGRAM 

DEVICE ADORESS SELECTION 


LIKE MOST OPTIONS ON THE POP11 THE RX11 ACE CARD HAS 
Devices HTH Tre Sa The Sere STHOMD VECTOR eet sIiis ALLO en FOR 
TO AN O SO THEY ey ILL RUN WITHOUT CONFLICT. 


THE PROGRAM KNOW WHA as 
ee RCC THES ESTERS A VECTOR SHAT ALL COMMUNICATION 
BETWEEN THE PDP11 AND RX11 IS HANDLED. 


cOORESS OTHER Ten STMNOGAD, WATCH TS RxCSC177170_ AO. 


RXDB=1771 OCATION CALLED “Rx°S” (LOC. 1206) ITS 
NEW AnD IN te ey ae TS I us ie NEW ADDRESS. 
i Ue rR aeee eT sAi are nee 


IF THESE THREE RENORY LO LOCATIONS DO NOT CONTAIN THE RODRESSES THA 
HOG pe AAT On Warr ines VECTOR RODE ADDRESS g That 1 IuMPeRe 
(NOTE: THE VECTOR ADDRE T BE JUMPERED FOR LOCATIONS 
200 THROUGH 220 AS FOP EE RE USED BY THE SEER EM) 








IN. 













GOl 


2.3.2 NON-STANDARD DISKETTE ADDRESS SELECTION 


a IT Le SIREABLE TO TEST THE oe A ae TRACK 
= weed 1 ao ene noe eee 


AMETER ( 
. ie Le Seem aat ea” 
LOCATION I 


aha one 103 foi te TOO Sea ot TW BYTES 


THESE TWO LOCATIONS ARE. LEET PEARED THe MAK” 
VALUES FOR THE ADORESSES ARE ASSUMED. ) 


A. DEFINITIONS: 
OD = ADDRESS OF TRACK AT VALUE=0) 
ID = ADDRESS OF TRACK AT INNER MAX VALUE=114 [OCTAL]) 
FIRST = ADDRESS OF FIRST SECTOR OF TRACK (MIN VALUE=1) 
LAST = ADDRESS OF LAST SECTOR OF TRACK (MAX VALUE=32 [OCTAL]) 
B. LOCATIONS: 


TRACKS LOC. 1200 BITS 14-==---8 b-==---9 


+ 
SD 
vr 


MIN 


SECTORS LOC. 1202 BITS l@------8 4----<-0 
LAST FIRST 


C. RESTRICTIONS: 


THE CONTENTS OF “OD" MUST BE LESS THAN OR EQUAL TO THE CONTENTS OF “ID" 
THE CONTENTS OF FIRST MUST BE LESS THAN OR EQUAL TO THE CONTENTS OF “LAST” 


IF THESE LOCATIONS ARE TO NEW LIM THEN THE 
PROGRAM WILL ACCESS GRLY THOSE ADORE OséS TNeLUSTYE. OF ! 
AND Set WEEN THESE LIMITS. 


ane ae eee ee en me ae ©. nr nee ee 9a oe eS ES 














2.3.3 SOFTWARE SWITCH REGISTER (LOC. 176) 





REGISTER, OG IE THE OPERATOR MIDHES, a WARE SWITCH 
Sieh Feartieat ait et a as p= 

: ION 176 IS ASSIGNED 
OU ee se 


TQ CHANGE THE SOF ILE THE PROGRAM 1S RUNNING 
A WIRE THe Suc is BE TESTED THE PROGRAN Ui ILL CHECK 


it to tor “gmat BY Ne Gehan We AS 


7 
iB 
i 
= 
az 
¢ 
z 


NO 
CTS THE (CR) IT WILL REPLACE THE CONTENTS OF THE 
IF A NEW ONE HAS BEEN TYPED IN, AND RETURN TO THE FLOW 


NOTE: CHARACTER RESTRICTIONS FOR CHANGING THE SOFTWARE SWR. 


ONLY OCTAL NUMBERS 0 - 7 ARE ACCEPTED. ANY OTHER CHARACTER 
TYPED WILL BE PRINTED ASA ? AND THE WHOLE SWR MUST BE RETYPED. 


2. TO WIPE OUT A “NEW” CONTENTS JUST TYPED IN, TYPE CTRL U. 
NOW A NEW CONTENTS CAN BE RETYPED. 


3. ONLY & OCTAL CHARACTERS WILL BE PUT INTO THE SWR. 
iF MORE THAN & CHARACTERS ARE TYPED IN ONLY THE LAST 6 WILL 


| THE ADORESS 

SEE SECTION 2.4.2 FOR THE SELECTION OF OPERATING CONDITIONS. 
PUT INTO THE SWR. 

| 

| 

| 

| 

| 


























I01 


2.3.4 TEST PARAMETER SELECTION ("DTESTP” LOC. lele) sk 


THE DRIVE AND TEST SELECTION MUST BE DONE BEFORE T 
PROGRAM TARTS. “DTESTP™ cLocaT ON N tele) abe WHERE te BITS 
ARE SET TO T t PROGRAM WANTED AND iret TEST 
TO RUN, AS INDICATED BELOW. WHEN PRE BRoGRaN STARTS IT WILL 
TYPE OUT THE TEST CONDITIONS IT IS RUNNING UNDER. 


§ (1) SELECT ORIVE UNIT 1 
4 (1) SELECT DRIVE UNIT 0 


THEN SET TEST CONDITIONS IN BITS 8 THROUGH 0 





BIT 9 IF BIT 9 IS ON WRITE/READ FUNCTIONS WILL 
BE IN THE DELETED DATA MODE. 

BIT 8,7,6 SELECTS A DATA PATTERN TO BF USED. 

BIT 5;4:3 SELECTS A TEST TO BE PERFORMED. 

BIT 2:1,0 SELECTS A HEAD MO T SEGUENCE. 


THE SELECTIONS ARE DEFINED AS FOLLOWS: 
P = DATA PATTERN SELECTION 
DEFAULT TO 7 
ZEROS 


55% 
Z H 


Bes 
$82 


CHECK) 
CK ON BLTERNATING DRIVES # 
CHECK # 


* 55 
—e 


AD CHECKS ANY SELECTED DATA PATTERN 
ONE AT A TIME. 


BOTH 
ACK, IT GOES BACK TO UNIT 0 


PEs 
ae 





ES 


re _- 


2.4 
2.4.1 















0 THAT 
SSM ath RCD RA IE ON eel Hd SE EH 
S = TRACK SEQUENCING 
DEFAULT TO 7 
NCREMENT 
BeeEH ccm 


DECREASING BOUNCE 
STROBE 


NOULSUIU-O 


IF NO BITS ARE SET (ZEROED “DTESTP:) THEN THE Sigs 
PROGRAM WILL SELECT ALL DRIVE UNITS THAT ARE READY AND 
DEFAULT 10 T CONDITIONS AS INDICATED. 


Ne PROGRAM NEXT PRINTS THE Rees AND vector ¢ ADDRESSES 

IT WILL USE IN ena WITH openet oh SYSTEM. AS 
EXPLAINED IN SECTION 2.3.1 MUST VERIFY THAT THESE 
ADDRESSES RRE THE ONES JUMPERED ON ON THE RXII INTERFACE BOARD. 


OPERATOR ACTION TO RUN THE PROGRAM 
STARTING THE PROGRAM 

SET THE DESIRED STARTING ADDRESS INTO THE SWITCH REGISTER 
DEPENDING UPON THE TYPE OF CONSOLE AVAILABLE, LOAD ADDRESS, 


THE PROGRAM WILL TYPE ITS “MAINDEC™ NUMBER AND REVI 
AND DEPENDING UPON THE STARTING ADDRESS DO THE PBLLOUING: 


SA204 - THIS PROGRAM WILL REPORT VIA THE 
OO IRE SOLLECIED. NO OTHER OPE: 


2 
3. 






2.4.3 





ooo 
; 


2.4.2 OPERATING CONDITIONS 


KO1 

















PROGRAM CHECK zip THERE Creree AT VARIOUS 
SND WHILE oe Nee rh IS A HARDWHRE SWR Lg ae 
BE CHANGED AND E THE PROGRAM BC RUNNING. 
SOF THARE SWR IS _IN ise, “THEN THESE CONDITIONS MUST BE SET IN LOCATION 
176 BEFORE THE PORGRAM’ STARTS. 


NOTE: IF BatPEOHARE SWITCH REGISTER, AND THE OPERATOR 
WANTS T WARE SWITCH REGISTER. PUT ALL SWITCHES UP (1) 
BEFORE S Hat THE THE INITIAL START ADDRESS. 


ne one eee ae pelt fe A mn a Se SELECTED pore Pree ion 
FINDING AT 


See Bi a te Uae RADE. se 


HE PROGRAM MA 
Tia SeLeC TED BY Tre £ OPERATOR IF THE PROGRAR DETECTED 
aon DRIVE TO BE NO 


IF HOWEVER THERE @RE_NO DRIVES IN THE DRIVE READY CONDITION 
THE PROGRAM WILL TYPE <NO DRIVES READY AND HALT AS IT CAN'T 
FUNCTION THE REASON FOR 


F! ALL 
DRIVES | TO UR. - I aio CORRECTED, THE 

ATOR MAY PRE tO, FEA 5 Fou WILL 60 BACK TO. 

Atrial S CTERT On bE HAY RELOAD THE STARTING ADDRESS 


AS WELL AS “DRIVE(S)" SELECTED THE Arg al WILL TYPE OuT 


STANDARD TRACK MITS WERE SELECTED 
(SEE SECTION 2.3.2 OF THIS DOCUMENT) THESE LIMITS WILL ALSO 
BE PRINTED OUT FOR VARIFICATION BY THE OPERATOR. 

ACTI1 & XXDP HOOKS 


THE PROGRAM HAS NECESSARY LOCATIONS SET UP FOR OPERATION UNDER 
ACT11 AND XXDP oprHaTiOn + THE PROGRAM LOOKS AT THE LOADING MEDIA LOCATION 
AND IF IT CONTAINS THE NUMBER 10, INDICATING THE FLOPPY DISK LOADED 

THE PROGRAM, Wl ILL TYPE THE FOUL OIA PROMPT MESSAGE & WAIT FoR 


“CAUTION - IF YOU DESIRE TO Test 
7a MEDIUM WITH A 
THEN S CONTINUE” 


THUS, IF THE OPERATOR WISHES TO TE 
PR HE REMOVES THE LIBRARY DI 
SCRATCH DISKETTE INTO DRIVE 0, AND 


LO1 


2.5 PROGRAM OPTIONS 


THERE ARE A COUPLE OF WAYS THE PROGRAM CAN BE SET UP TO 
RUN FOR OPTIONAL TESTING. 


2.5.1 PSEUDO - SCOPE LOOP 


SETTING THE ADDRESS LIMITS IN OD AND OR FIRST TO ONE 
Br THO TRACKS AND OR SECt conBe ‘ op POSSIBLE TO oy 
a eulRLy" TIGHT PSE 


BY RUNNING ONL 
T DOES RITE C YOR" READ ONLY ITS POSSIBLE. 
T SPECIFIC FUNCTIONS, I.E. FILL BUFFER, WRITE, READ, 
EMPTY BUFFER. 


2.5.2 DISKETTE COMPATABILITY 


TO CHECK FOR DATA yg earn iy BETWEEN ie 
wit. ee ae FOLL 


S ass 
1 ant NOT vou Tar TEST EO pat 

api Be BETHEEN Bua PRIVE Bol, RX11 SYSTEMS BY RUNNING THE SAME 

THIS TEST OONCURES PROPER HEAD ALIGNMENT. 

A. HAVE DISKETTES IN BOTH DRIVES AND DRIVES READY. 


B. CLEAR THE OD/ID AND FIRST/LAST MEMORY LOCATION, FOR 
TOTAL DISKETTE TRANSFERS. 


C. LOAD THE INITIAL START ADDRESS (LOC 200) AND START 
THE PROGRAM RUNNING. 


D. SET LOCATION “DTESTP™ FOR “DRIVE AND TEST CONDITIONS” ON 
BOTH DRIVE ANY “P"ATTERN OF DATA “PE QUENCE #1 
(INCR REN TRACKS TO INSURE ALL HEAD POSITIONS ARE ALIGNED) 
BND ane 3 (WRITE/READ CHECK). THIS WI 
WRITE THEN READ AND VERIFY THE DATA ON BOTH DISKETTES. 


E. ALLOW THE PROGRAM TO RUN FOR AT LEAST 1 COMPLETE PASS. 


NOTE: IF RANDOM PATTERN (0 OR 7) IS PELE TED YOU MUST HALT 
Bre eo Ce ere PASS, AS ADDITIONAL 
PASSES CHANGES THE DATA AND YOU 
WILL GET DATA ERRORS WHEN YOU TRY TO REREAD. 


TO HALT AT THE END OF PASS PUT SW14 UP (1) WHEN 
“OPERATING CONDITIONS” ARE REQUESTED BY THE PROGRAM. 


F. AFTER COMPLETION OF THE PASS, PROGRAM HALTED. 
DISKETTES, AND AS YOU ONLY WANT TO READ VERIFY THE 
oe START THE PROGRAM AGAIN aT LOC 200 (INITIAL 


} 
| 
G. WHEN REQUESTED SELECT THE SAME DRIVES, PATTERN, AND 
| SEQUENCE, BUT SELECT TEST 4 (READ CHECK ONLY). 
H. ALLOW THE PROGRAM TO RUN AS LONG AS YOU MISH TO VERIFY 
| 


THAT DATA WRITTEN AND CHECKED ON ONE DRIVE CAN BE 
READ AND VERIFIED ON THE OTHER DRIVE. 























2 ee eee 


¥ * 
















MO1 . 
2.5.3 X11 TO RX8 COMPATABILITY 


TO WRITE A DISKETTE ON THE RX11 AND READ/VERIFY THE SAME DATA ON A 
FX8 REQUIRES THE FOLLOWING: 


A. SET UP LOCATION “DTESTP” (1212) WITH ONE OF THE 
FOLLOWING DATA PATTERNS 


P=1 (0°S) 
P=s2 (1°S) 
P-S (125) # 
P= (314) # 


4 
* NOTE: IF ONE OF THESE PATTERNS IS SELECTED A_MODIFICATION 
[Oe are MUST BE MADE TO ALLOW THIS DATA TO BE READ ON 


A RX8 

THE MOBIFICATION IS_ IN THE “PAT12S” ROUTEEN, THE TWO (2) LOCATIONS 
CONTAINING THE “COMB DATABYTE™ INSTRUCTION MUST BE CHANGED 

TO TWO (2) NOP’S (OCTAL 000240) 

B. ath IN “DTESTP” TEST 3 WHICH WILL WRITE AND READ CHECK 

THE DATA THEREBY VERIFYING THE QUALITY OF THE DATA PRIOR 

TO THE DISKETTE SWAP. 

SET THE SEQUENCE TO 1 TO INSURE THAT ALL TRACKS HAVE BEEN WRITTEN ON. 
C. HALT THE PROGRAM AT THE COMPLETION OF ONE PASS. 


D. THE DISKETTE IS NOW READY TO BE READ ON THE RX8 
SYSTEM. SEE MD-8-DIRXB-* FOR THE PROCEDURE TO READ THIS DISKETTE. 


TO READ A DISKETTE THAT WAS WRITTEN ON A RX8 SYSTEM SET UP AS FOLLOWS: 


E. SET IN “DTESTP™ THE DATA dagy THAT WAS USED BY THE 
RXB SYSTEM. (SEE NOTE UNDER SECTION A 


& SET “DTESTP” FOR TEST 4 (READ CHECK ONLY) AND SEQUENCE 1 
OTR ERR opet TRACKS. START THE PROGRAM, IT SHOULD RUN WITHOUT 





2.6 












NO1 


RUN TIME 


RUN TIME PER PQSS DEPENDS UPON NUMBER OF A FUNCTIONS IN 
THe ae a ae FOL, TRACK SEQUENCE. 
AND COMPLETE DISKETTE MXTNUN 10/00, 
ieee hie IF ‘beh ON 2 DRIVES DOLSLE THE TIN 
A PDP 11/05 PROCESSOR AND MAY CHANGE ME TGHTLY FOR 
A Hee TER Poces Scone , 
7 
? 
7 
6 
? 


TEST SELECTION T §  TIME/PASS 
& §S 3 MIN.30 SEC. 
¢ & AN. Se. 
7? 7? @MIN.23 SEC. 
3 4 1 MIN.46 SEC 
3 1 1 MIN.30 SEC. 
aS ee $1 SEC 


NOTE: DUE 70. THE SLOW SPEED OF THE LSI 11 PROCESSOR 
RUN TIME IS ABOUT DOUBLE THAT LISTED ABOVE. TO SPEED up ee RUNNING 
OF THIS PROGRAM i THE LSI LSI uk YOU CAN CHANGE THE INTERLEAVE FACTOR, 
OF THE SECTORS, 8SED PROGRAM. TO DO THIS CHANGE THE 
CONTENTS OF LOCATION THREE” FROM OCTAL 3 TO OCTAL S. 


ERROR DETECTION 


PROGRAM DEFINITIONS 


ON MOST ERRORS THE PROGRAM WILL TYPE OUT THE CONTENTS OF 
“STATUS A” AND “STATUS B”. 


STATUS A IS THE CONTENTS OF THE RXES (ERROR AND STATUS REGISTER) 
AT THE TIME THE ERROR IS DETECTED. IT SHOWS THE CRC,PAR,ETC. ERRORS. 


eras B IS THE “DEFINITIVE ERROR CODES” THAT THE RXO1 DETECTED, 
HAT MAY HAVE CAUSED THE ERROR CONDITION. THESE ERROR CODES ARE’ 

DEFINED IN SECTION 3.2. 

THE PROGRAM HAS DEFINED THE FOLLOWING AS ERRORS. 

WRITE ERROR 

A WRITE ERROR IS A Ae riee READ ERROR -IF THE DATA BEING 

READ _IS OF UNKNOWN QUALITY (THE DATA a, TS BEING READ 

FOR THE FIRST TIME AFTER A WRITE FUNCTION) 

READ (CRC) ERROR . 

A READ ERROR IS A RETRIED READ ERROR WHERE THE QUALITY OF 


THE DATA BEING READ IS KNOWN GOOD. (THE DATA HAS BEEN 
READ CORRECTLY SOME TIME PREVIOUSLY. ) 


=e = ee 





3.1.3 
3.3.4 
3.1.5 


Bd 
o- 
o 


- 
~ 
6 

N 


me ne re ne cr ne rm a tt ee re re ee ee 


| 
| 
: 
! 
i 


CRC AND DATA ERROR 
NO CRC ERROR BUT DATA ERROR 
CRC ERROR BUT NO DATA ERROR 


RS PRS CEASE TE TETRA AS SEPRS Bir 


UPON A ite cecton THE PROGRAM TYPES OUT THE “BYTE” 


NUMBER _IN THE SEC THE DATA READ FROM THE DISKETTE 
“BAD AND THE EXPECTED DATA “GOOD”. 


BYTES BAD 
(THE DATA PATTERNS ARE FORMATTED AS SHOWN) 
0 ( ; BITS & - 0) 
1 SECTOR ROORESS; “BITS 4 ~ 0) 
BYTES 2 THROUGH 125 CONTAIN THE SELECTED “P"ATTERN. 
126 (Te See kee S 0 - 125) 
le7  —s (THE «NEGATIVE OF 2 TIMES BYTE 126) 
PROGRAN crs A ERROR qu NG ALL_THE 
bata READ DISKETTE ARO COnEARY THAT SUM TO 0. 
a Ex SU ACCUMRATED 15, “GOOD OR HED “ERRORS™. 


OR HAD “ERRORS”. 
Te GEO Sel IF ft 15 aS. OPERATOR MUST CHECK THE RESULTS 


OF THE CHECK Tas A 50 THEN THERE WAS A DATA ERROR. 
IF THE CEHCK I IT MIGHT BE THAT THE HEAD IS NOT 

OVER THE TRACK EXPECTED,AND THERE IS A POSITIONING ERROR. 

SEEK ERROR 

SEEK ERROR IS DEFINED AS NOT A CRC AND NOT A PARITY ERRO 


° I R. 
A PROGRAMED RECALIBRATE IS ISSUED TO TRY TO CORRECT EACH SEEK ERROR. 


fi PARITY ERROR RESULTS FROM AN INCORRECT TRANSFER OF A 
ACE TO THE RXO1 MICRO- 








a nn en eee. 
‘ 
' 


3.2 


3.3 
3.3.1 





C02 


DEFINITIVE ERROR CODES 

THE RXO1 MICROCONTROLLER HAS DEFINED THE ERROR CODES AND 
MEANINGS m CH A AVAILABLE TO THE PROGRHM BY ISSUING 
CONMAND 87 “READ THE B-CODE STATUS REGISTER”. 


DEFINITIVE ERROR CODE REPRESENTS [WHERE] WITHIN A FUNC- 
TION AN ERROR WAS DETECTED. 


THE FOLLOWING ARE THE DEFINITIVE ERROR CODES AND MEANINGS: 


OFA Hone prod ih 
chan HOME FROM INI 


ee 
ass 
BmRoudd 
ota 8 
L 
g% 
3 
i mM 
ia 
: 
a 


WRITE PROTECT ERROR 
THAN AND NO CLOCK DETECTED 
a NOT BE FOUND 
NO ID MARO FOUND IN TIME 
ON IDLY GOOD HEADER 
(NO CRC ERROR) BUT TRACK COMPARE ERROR 

- IDAM NOT F IN to ' 
- DATA AM IN TIME 


SEE 


UNEXPECTED OR MISSING ERROR CONDITIONS 

MISSING DO MARK 

AN ERROR WHEN THE PROGRAM WROTE DELETED DATA INFORMATION 
BUT NO DELETED DATA MARK WAS DETECTED WHEN THE DATA WAS 
UNEXPECTED DD MARK 


AN ERROR WHEN A DELE wine MARK IS DETECTED BUT NO 
DELETED DATA WAS WRIT 











3.3.3 NO INTERRUPT ON DONE 


nS prey - OUTER T BAe oe Taal AND THE DONE FLAG WAS 


3.3.4 


3.4 


UNKNOWN INTERRUPT 
IF ON I T OCCURS F oTven Oey 


TS RUNNING IT WiLL HALT AT THE 


IC 
PROGRAN TERRUP 
LOCATION. 
OCA 


IF AN INTERRUPT OCCURS ON INTERRUPT VECTOR L 

(RX11). AND IS NO ERROR, DONE, OR ERROR STATUS 
CONDITION SET, THEN IT WILL BE TAGGED AS AN UNKNOWN 

SRTERRUPT. 

POWER FAILURE 


THE PROGRAM TESTS FOR TWO TYPES OF POWER FAILURE, TOTAL ygren 
POWER LOSS ANC AND RX11 POWER LOSS RESULTING IN A RECALIBRA 


SERDUTINE SPOUER. WEEN fhe POLER Ts GETECTED TO BE GOING. 


THE te feGISTEne We RecTORED : The PESSaE PC SB OMERS 18 PRINTED. 


a Fe ea ie sy Gone et ON OF ALL 
DRIVES. vie SIRET SET IN THE 

re oes FECL DORE” FoAe. at 

NIT 5 edt is coe 
eat ae MUST 
Hive BEEN DETECT TED, WEN THis HRerEnS HEP 
IF THERE NOTHING HAPPENS BUT, RX11 POWER 
FESSAREE THE THIT DOME PLAC NIGHT STUCK ON. ” 

PROGRAM HUNG 
THERE ARE MON | S WHERE THE PROGRAM T WAIT FOR AN OPERATION 
T Wal FOR THE 
“Dore” Fung 10 [NOICaT eae “A FONCTION f Te COMPLETED TED, OR WAITING, 
BYTE OF INFORMATION F re exit RX11 FLAG 10 SENG OR wit H NETHER 
OR BOTH OF (PX DOES NOT CORE 


TO INHIBIT THES EROH HASPENING THERE ARE TWO SUBROUTINES USED 
TO CHECK FOR THESE TWO 


UTMIR a Secinic Tite 1H rep Bit y AND Seale 18 NOT SEEN 


PR 
gh TER 3 (1 ) HE 
ADDRESS OF THE Test THA IS WAITING FOR THE LAG 











4.C 


5.0 


es 


i 
| OnNOWM LW 
| 
\ 
! 


sPecurit Tih FOR THE "TR" ie ig 115 NOT SEEN WITHIN A 


IME IT ALSO pean ST HUNG” M — 
HALTS HE SP (177706) HE RETURN ADDRESS OF 
TEST waiting. FOR THE TR FLAG 


THE WAITING TIME FOR THE TWO FLAGS DEPENDS UPON THE HOST PROCESSOR AS 
INDICATED BELOU: 


“DONE” WAIT 11/45 BIPOL 14 SEC. 
11/05 CORE 62 SEC. 
"TR" WAIT 11/45 BIPOL .44 SEC. 
11705 CORE e SEC. 
ERROR REPORTING 


ALL ERRORS DETECTED WILL BE REPORTED IF SW13 = 0 FOR 
OPERATING CONDITIONS. IF SWle = 1 THEN ONLY 10 DATA 
Bana Enos FOR Wai SECTOR WILE AND A TOTAL OF 

THAT SECTOR WILL BE REPORTED AT THE END 


he BS oan Rin teat Oras vie TERE ie re NO S WEITER re ERRORS 


TS PRINTED. IF THERE WERE ERRORS THEN is PRINTED” 


THE TOTAL ACCUMULATED AND OYSTERS OPERATION IS 
REPORTED BY THE “ERROR DUMP” PROGRAM. 
HALTS 
THERE ARE VARIOUS HALT LOCATIONS THROUGHOUT THE PROGRAM. 
SOME ARE THE TS OF “HARD” OTHERS ARE WAITING FOR 
INTERVENTION. ARE LISTED BELOW: 
HALT 8 TYPE DEFINITION 
HLT1: NO ERROR sCAUTION - LOAD MEDIUM ON UNIT 0 
HLT3: ERROR ERRORS FOUND ON RECAL FUNCTIONS 
HLT4: : PARITY 
a: :NO 
HLT: ; SW ON ITY ERROR 
HLT7: ERROR i Sul ON SEEK ERROR 
HLT1O ERROR : ON TOR ERROR (NO DATES ERROR) 
HLTL1: ERROR : TOR ERROR (NO DATA ERR 
HLT12 ERROR *SWiS SET TA CRC 
HLTI3 : Sui MISSING CTED DATA ERROR 
HLTI4 ERROR : Sil on DATA NO 
HLTIS: > Sul a SSING T AT DONE 
HLT16: NO ERROR * HAL END 
HLTI7: NO ERROR *HALT AT END OF ERROR DUMP 

T ERROR : watt FOR 
HLT21 ERROR : WAITING FOR LAG 
sii -DaRxn-€ MACYI11 27(732) 20-SEP-76 15:46 2 

MIST CND, MD, MC 
-ENRBL 


“NICAL: “HetOER QUAT, .SETUP, .STYPE, 
“CALL OWER, STARS, . $0820, . $SB2D, . $SAVE, . STRAP, GETSWR 


. STYPOCT, . SREAD 


Seas 





BRA EEO bdo Udi E eafUs— OO SON SE Cour bod SOMONE osiur- Cope OUT Etorie tw 


000001 
160000 





. TITLE _MAINDEC-11-D2RXA-£ 
;#COPYRIGHT (C) MARCH 21, 1976 


TW, Roe DI 
PROGRAM BY DAVID L ADAMS 


;# 
;®THIS PROGRAM WAS ASSEMB USING THE PDP-11 MAINDEC SYSMAC 
5 APRCKAGE (MAINDEC-11-DZQAC-CO),MAR 21, 1976. 


éTn=1 
$SWR=160000 ;;HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 


*THE INFOMATION 
ti NOTICE 
:BY DIGITAL EQU 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABI 
fe SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED B 


IPMENT CORPORATION. 


.SBTTL BASIC DEFINITIONS 
-#INITIAL ADDRESS OF THE STACK POINTER #%* 1200 x 
étacK= 1209 


“EQUIV EMT, EPROR ;;BASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE ;:BASIC DEFINITION OF SCOPE CALL 
s*MISCELLANEOUS DEFINITIONS 
T= 11 :;CODE FOR HORIZONTAL TAB 
LF= 12 *:CODE FOR LINE FEED 

CR= 15 *:CODE FOR CARRIAGE RE 

CRLF= 200 *:CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 :PROCESSOR STATUS 

EQUIV PS,PSW 








BBIRRIGBRESLSIKR LOO SSSIER ISHS ISISAZIVASSSVERIGR SSS 


bbs DO b= b= + d= P= 


oa ao ae 
MeO 


—— + ee 


“DERKATE re oe eat dt a= 20-SEP-76 15:46 PAGE 3 


STKLMT= 177774 


pete 12 


RO= 


-EQU 


“EQUIV R7,PC 


parent LEVEL DEFINITIONS 


EEEEee., 
ey 


fod 
“+ 
= 


SeEReaRSaEaS. 


Se 


mMmmmimimn 
eeeeee 
<<<<<< 


BeRESnaes 


SERS Ene oes 





GOe 


3 STACK LIMIT REGISTER 


gas nen ge Peis 
33 DISPLAY REGISTER 


oon ore REGISTER DEF UN RES ESTER 


;;GENERAL REGISTER 


here Reclreh 


;;GENERAL REGI 

;; GENERAL REGISTER 

;;GENERAL REGISTER 

;;GENERAL REGISTER 

+ BROgh POINTER 
;PROGRAM COUNTER 


= 
we . 


39 3HRIRG | 


SESSARS 
mami fam 
aeeeeee 3 
NOU £WIM-O 


22222222 


GISTER” SWITCH DEFINITIONS 


;*#DATA BIT DEFINITIONS (BITOO TO BITIS) 





T) #*SCOPEx# 


ST EMULATOR TRAP (EMT) **ERRORKS 


e 


;PROGRAM INTERRUPT REQUEST VECTOR 


; TIME OUT AND OTHER ERRORS 


H 


;7RESERVED AND ILLEGAL INSTRUCTIONS 


331 TY KEYBOARD VECTOR 


;;1TY PRINTER VECTOR 


3;_TRAP@ TRAP 


* 


Sn0s-06-06-06-06-sb-ab-at-0t-e 
-° QNMOOMMOOM 


ayatatatafeys teers: 


or 
O44 4 4 4 4 0 0 
oh ri Daleslerlerlelerlerlerlerferter} 


;SPECIAL EQUATES 


ate “ i>>>>o>o>o>o>o > 
TSE EEEREEEL 


Pasaaacsess 


. . . . 


0-4 04 4 4 4 04 4 4 0-4 4 4 0 4 
OMOMOMOMDMMOMMOMMAMMMmaM 


20-SEP-76 15:46 PAGE 4 
*#BASIC “CPU” TRAP VECTOR ADDRESSES 


TPVEC 
PIRQVEC=240 


1 27(722) 








memes 
S8888z 


BOSGHH BoB 


See Keeee Beaty Kook Kaen Reem cee Rome Koen Deen Kee Kem Kae Rome I 


BABB Ss 


oe Kon Kee ee Rod Kee hoe Doe bog kes) 


Sa Ream Keen hte Reh Reem Kem Keon Roe Rot Ron Roe Koo | 








PGES} Oc MACY11 27(732) 20-SEP-76 15:46 PAGE S 
OZRXAE. P11 BASIC DEFINITIONS 


169 - 90340 PR? =340 
179 ooooc0 OPEN =0 

ys .=0 
173 oooroo vane ooooc0 .WORD 0,0 
175 oo0024 224 

176 000024 013764 SPWRDN 
172 000026 000340 340 
i28 oooc34 234 
180 000034 013716 STRAP ADDRESS OF TRAP SERVICE 
181 000036 000340 340 
183 po0046 245 
184 oo0004% 011130 LOGICAL sACT11 EOP HOOK 
186 po0s2 252 
187 po00se 900000 .WORD 0 
1e9 000174 2174 
130 900174 990000 DISPREG: 0 
13h 000176 900000 SWREG: 0 
i 
133 5 SKERELAELALAALEL LEE AERA LLER ALE RE SLA REL ARE RELL KARA A LE RELERA KEES 
1% STARTING ADDRESSES 
198 ‘INITIAL START =200  /CLEARS ALL ERROR LOGS, RESETS COUNTERS, AND ALLOWS FOR 
199 : “SELECTION OF DRIVES AND TEST CONDITIONS 
201 : RESTART =202  §/USES PREVIOUS INITIAL START DRIVES AND TEST 
202 : /SELECTION AND CONTINUES TO ACCUMULATE STATISTICAL DATA 
204 “ERROR REPORT =204 $= /PRINTS OUT ALL RUN AND ERROR CONDITIONS 
20s : ZACUMULATED OVER THE RUN OF THE PROGRAM. 
207 . 
208 
209 p00200 =200 
210 oo0200 o00402 BR 1S 
211 OO00202 o00403 BR 2 
212 000204 O00404 BR 3$ 
213 000006 000137 001220 1S: JMP SA2OO0 sOPERATOR SELECTED CONDITIONS 
214 000212 000137 002700 2g JMP RESTART .. "RESTART PROGRAM WITH PREVIOUS CONDITIONS 
ei6 000216 000137. 021062 . 3$ JMP EROUMP *STATISTICAL ERROR PRINT OUT 

7 

ei8 ss KE EREEKLKK KEKE KKK ERE KEE EERE RRS FRA EE LA SHEARS YK RA KEKE XES ERE EK EK 
220 ; THE FOLLOWING LOCATIONS "OD", "ID", "FIRST",AND “LAST” 
221 CHANGED BY THE OPERATOR MANUALLY HOMEVER” FOLLOWING THESE RESTRICTIONS. 
eee tr THESE LOCATIONS ARE LEFT CLEARED,MAX AND MIN VALUES ARE ASSUMED) 
224 : 1. DEFINITATIONS: 


























J0e2 
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DZRXAE.P11 BSSIC DEFINITIONS 


225 : OD=ADDRESS OF TRACK AT OUTTER DIAMETER (HIN VALUE LUE if faehe <i 
get : bee CORR BRESS OFF tre UNE Ofene ER (MIN N WALES E 

228 : LAST=ADDRESS OF LAST SECTOR OF TRACK (MAX VALUES. lOCTAL}) 
g30 : 2. LOCATIONS 

1 : RACKS LOC. 1200 BITS 14----- 8 6----- 0 

exe : ID oD 

34 : SECTORS LOC. 1202 BITS 12----- 8 4----- 0 
es5 : LAST FIRST 
237 : 3. RESTRICTIONS: 
238 : THE CONTENTS OF “OD” MUST BE <= THE CONTENTS OF “ID” 
233 : THE CONTENTS OF FIRST MUST BE <= THE CONTENTS OF “LAST” 
24] 
e42 


-=1200 


Y 
Ww 
888 
8 


1201 1200+! 
FIRST: 
001203 LAST=FIRST+1 


5 5 RERRRERALLALAE REALE RELA LAE L ERE RELA ELLL LALLA LEE RAELEELELELA EELS 


; THE NEXT WORD IS THE LOCATION OF THE aon olen VECTOR™ ADDRESS 
SIF THE HARDWARE IS JUNPERED FOR OTHER THAN STANDARD (24) VECTOR 
; ADDRESS, THEN LOAD INTO THIS LOCATION THE NEW VECTOR ADDRESS. 

SIF THIS ADDRESS IS INCOR She wT MATCH THE HARDWARE) THE 
sPROGRAM WILL Uf te Be vee TOn re ens 1 JUMPERED 
30, AS ALL OTHER VECTOR See MIL WILE HAVE HALTS IN THEM. 

HB BAKERS HEHEHE BEB EENO ESHER 


THE INT T_VECTOR ADDRESS CAN NOT BE SET FOR ADDRESSES 200 
; THRU 243, AS THESE ADDRESS ARE USED BY THE PROGRAM 


| HAHA HHEHEHEHEHHEHE {HHH EEE 
001204 o00264 INTVEC: 264 
caiman oO a PY EB or ea es 


OLLOWING TWO “Recist N THE DEVICE CODES FOR 
THE RX11 ite | conn REG 1 


OMMAND STATUS REGISTER 
RXDB = oars Ta SUFFER RECISTER {SED AT VARIOUS TIMES FOR:) 


(RISA = SECTOR Bo 


IF THE RX11 SYSTEM OES ch fest I 8 YUMPERED FOR REGISTER 
; ADDRESSES OTHER THAN STANDARD: “Rags = = 177170 


SRE MRR AIS sod taba dual tonpaille PH 


BN 
“N 
w 





co 


a ew ee - — ~~ —- ° . - 





MAINDEC-11-D2RXA-E MACY11 27(732) 
se) Pll BASIC DEFINITIONS 


2 


001206 177170 
001210 17717e 


SEU RCS Se RR EIS Boe aan PER 


WWUWIWiLIGI WGI) 
= b= = b= 0 be 
OOO NOUT.£ WIT 


RRR S SERNA 


20-SEP-76 15:46 PAGE 7 


uit 
RXD. 





02 
;PLACE IN THESE TWO WORDS THE el tor hat wae ADDRESSES FOR 
Sbebeals! FOR veRIPLCAYYON ey The GPERAYOR. = 1F THE’ RooResses 
yy ce hig EBD Pach OUT be 


0 RESPOND T 


5 AEEEREE EERE RISE SSE Eo on ERDES oo oes IHEHHEHHEHEHEHEHHEEEEREEEEEES 


177170 
177172 


;BIT ASSIGNMENT IN THE RXCS REGISTER. 


iKEY: R - READ ONLY BIT 
W- WRITE ONLY BIT 


1S - R - ERROR FLAG 
1Y-W- INITIALIZE (RECALIBRATE ) 


Je 
19 NOT USED 

- R - TRANSFER REQUEST (TR) FLAG 
& - R/W - INT 4 ENABLE 
4-W- = A SELECT 


WlUION 
Q 


;FUNCTION 


: 
3 
; 
; 
u 
; 
; 
; 
: 
: 
; 
; 
; 
9 
; 
; 
5 
; 
5 
5 
‘ 
; 
5 
s ] 
37 
; 
; 
H 
: 
; 
5 
5 
; 
‘ 
; 
; 


RE 
ee OELET ED Paar 


- BIT ASSIGNMENTS REPRESENTES THE STATUS AT THE END OF A 
ee ieee “READ STATUS 8”) DISPLAYED IN THE 


gan 
>3F 


w 


5 

0 NOT USED 
~ SELECTED Brive READY # 
. TED DATA 


PROTECT ERROR (WHEN AVAILABLE) 
TAL Ize DONE # 


oe 

za 
— 
am 








LOe 
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DZRXAE.P11 


BASIC DEFINITIONS 


337 ; 1 - PARITY ERROR 
$30 ; 0 - CRC ERROR 
; i VISIBLE ONLY IF THE FUNCTION WAS A #12 “READ STATUS A” 
32 :#* VISIGLE ONLY AFTER AN INITIALIZE [KEY] OR [PROGRAMMED] WAS ISSUED. 
344 001212 000000 DTESTP: .WORD 0 sTEST SELECTION WORD 
345 001214 177570 SWR WORD DSWR ;AODRESS OF SWITCH REGISTER 
$46 001216 177570 DISPLAY: “WORD DDISP ADDRESS OF DISPLAY REGISTER 
sue 33 FEF FALE KEEL RAKE REF HRA LEK SK ELLER ERE EAL ELE LEE SEL EERE LE FREESE EEF EL 
350 sSTART 0 OF OPERATOR SELECTABLE TEST,DATA PATTERNS, AND DRIVE UN UNIT CONDITIONS 
351 *SET THE TEST CONDITIONS WANTED (OR LEA VE 0) aa LOCATION ¢ 
352 SSOTEST = (LOC. 1212), BEFORE STARTING T ROGRAM WHEN THE Pec 
$33 ‘STARTS IT WILL TYPE OUT THE TEST CONBIT TENS IT IS OPERATI ROSE 
365 ’ 
356 ;SHITCH REGISTER BITS 
358 15 14 13 12 Og e727 e E4221 | 
33 uo NOTUSED OPPPTMTtTS§s§5s§ 
361 Ul § SELECT DRIVE UNIT 1 
362 4 : UO __ SELECT DRIVE UNIT O 
363 IF NEITHER DRIVE IS SPECIFIED,PROGRAM WILL SELECT ALL DRIVES 
zed pa ;THAT ARE READY 
bb D= DELETED DATA FUNCTIONS 
368 IF THIS SWITCH IS ON ALL READ AND WRITE FUNCTIONS WILL BE IN THE 
363 ‘DELETED DATA MODE 
371 : 
We 2 Ps DATA PATTERN SELECTION 
373 : 0 DO PATTERN 7 (RANDOM) 
374 : 1 ZEROS 
375 : 2 ONES 
376 : 3 FLOATING ZERO 
377 : 4 FLOATING ONE 
378 : S 125 
379 ; 6 314 
380 : 7 RANDOM 
382 - Ts FUNCTIONAL TESTS 
383 : 0 DO TEST 7 (WRITE/READ/READ CHECK) 
384 : 1 WRITE ONLY 
385 : 2 WRITE/READ 
386 : 3 WRITE/READ CHECK 
387 : q READ CHECK ONLY 
388 : 5 READ ONLY 
389 : 6 WRITE/READ CHECK ON ALTERNATE DRIVES 
$0 : 7 WRITE/READ/READ CHECK % 
392 ; * NOTE: THE FIRST HALF OF TEST 7 FORCES THE TRACK SEQUENCE 








MACY11 27(722) 


MAINDEC-11-DZRXA-E 
ZRXAE. BASIC DEFINITIONS 


es: 


SSS8Sssssessss 
SINS ORR ESE RS 


MOe 


20-SEP-76 15:46 PAGE 9 


iT INCRIMENT UP THROUGH ALL_THE TRACKS DOING WRITE 7 READ CHECK FUNCTIONS. 


HTHe SECOND HALE OP THE spits MILL BE The SEGLERCE SELECTED BY THE 
OPE RA NLY CHECK _THE DATA JU 


fT 
;MOVED AWAY FROM AND BACK ty THAT TRACK. THE COMPLETION OF_ THE P 99s 
:THE DELETED DATA BIT IN TEST CONDITIONS fs COMPLEMENTED AND THE NEXT 
; PASS WILL BE RUN UNDER THIS NEW CONDITION. 


$= TRACK SEQUENCING 

; DO SEQUENCE 7 (RANDOM) 
NCREMENT 

DECREMENT 
INCREMENT/DECREMENT 

BOUNCE 

DECREASING BOUNCE 

STROBE 

RANDO™ 


NUL Wr O 


5p RERRERERR EERE LEELA RE AEE LEER EERE EE ER EERE REE REEL ERE EEE ERELE REE 


;SET_THE OPERATING CONDITIONS IN THE SWITCH REGISTER (HARDWARE). 
0R THE SOFTWARE SWITCH REGISTER (LOC. 176) BEFORE STARTING THE PROGRAM. 


t SWITCHES DO THE FOLLOWING WHEN SET TO “1”. 

SW 15 =HALT ON ERROR 

SW 14 =HALT_AT END OF TEST 

SW 13 =DON’T PRINT oe MESSAGE 

SW 12 =TYPE ONLY 10 DATA ERRORS 

SW i =NO RETRY ON ERROR. LOG HARD ERROR 
SW 8 =NO RECALISRATION ON SEEK ERRORS 


SW1S - SWO =SELECT SOFTWARE SWITCH REGISTER 


fp RRRERRRERA ERE REESE REE REE EE LE EL ERE RR REE EERE AE RAE EERE LER EREE EERE 


sae: RESET s INITIALIZE THE RXO1 
MOV #177570, SWR RESET TO HARDWARE SWR 
MOY #STACK, SP 
MOV #PR7, “1 
MOV #25, - 
TYPE .MREV PRINT NAME AND REVISION 
MOV #3$.4 CET TIME OUT VECTOR 
CHP #177777, aSuR i18 SOF THARE Suh SELECTED 
S$ t BRBAC trREGUt FBap OCCURS 
CMP (SP)+, (SP)+ sRESTORE STACK AFTER 
MOV #SWREG, SWR ‘POINT TO SOFTWARE SWITCH REG. 


3$: 
: MOV SBICPREG DISPLAY *POINT TO SOFTWARE DISP. REG. 





MAINDEC-11-DZRXA-E 
OZRXAE.P11 


545 
450 001 10 
a oa 
ue 
uB5 wipes 
454 001326 
45S 001330 
456 001332 
457 001340 
458 001340 
459 001346 
460 001352 
461 001356 
462 001.368 
463 001 
464 001376 
465 001402 
466 001404 
467 001410 
468 001412 
469 001416 
470 001422 
471 001426 
ie 001430 
473 001434 
474 001440 
475 O01442 
476 O01443 
477 001444 
478 001450 
479 001454 
480 001456 
481 001457 
482 001460 
483 OO14E4 
4B4 001470 
48S oo1i7e 
486 0014 
487 001474 
488 001500 
489 001506 
490 001510 
491 001514 
492 001520 
493 001522 
494 001526 
495 001534 
496 001540 
497 001544 
498 901546 
499 001554 
S00 001562 
S01 001564 
S02 001570 
503 o0187e 
504 00157 


MACY11 27(722) 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
oood4e 
001214 000176 


000001 013714 eae: 


! 000004 
013703 


12210 
l2ele 
1$: 


Statata 
aaa 


STARTI: 
3S: 


= 


-OE- 
GE 
P=) 
tT 


siege 


104402 


177502 


017014 TESTOR: 


010704 
001212 
001212 


001614 


040000 O0lele 


20-SEP-76 15:46 PAGE 10 


“SBTTL GET _—. As SOF TWARE SWITCH REGISTER 


WE RUNNING UNDER XxDP/ACT? 
t BRANCH H IF YES 
+ BO ONCH TF SWITCH REG SELECTED? 


:;GET SOFTUSHR SETTINGS 


64S 
SWR, #SWREG 
6S$ 


65S 

#1, SAUTOB ;;SET AUTO-MODE INDICATOR 

MOY #6,4 sRESTORE ERROR VECTOR 

MOV INTVEC,R3 -SET INTERUPT VECTOR LOCATIONS 
Mov #INTSERV, (R3)+ 


s INITIALIZE CONSTANTS IN RANDOM NUMBER GENERATOR 
:SET UP TO CLEAR ALL COUNTERS 

OF ERRORS, ACCESSES, AND PASSES 

“HAVE ALL COUNTERS BEEN CLEARED 


;SET ALL RETRY COUNTERS TO 10 


8 

#001234, RANI 

MOV #000765, RAN2 

MOV #PARLOG;RS 
(RS)+ 

MP #PASCNTR+2, RS 


WRORETRY RS 
#10. (RS)+ 
MP SoRETRYS2, RS 


YPE ,MRXCS TYPE OUT DEVICE REGISTER ADDRESSES 
AXCS, ~(SP) 3; SAVE rics S FOR TYPEOUT 


;G0 
6 :; TYPE 6 DIGI TS 


0 ::SUPPRESS LEADING ZEROS 

TYPE ,MRXDB 

RXDB, -(SP) 3 ;SAVE RXDB FOR TYPEOUT 

GO TYPE--OCTAL ASCII 

b it TYPE & DIGITS 

OPE MINTVEC Ho LP PRESS DEO GR -HDDRESS 

INTVEC,-(SP)  ;;SAVE INTVEC FOR TYPEOUT 

::G0 TYPE --OCTp I 

3 3 TYPE 3 DIGIT(S) 

0 * SUPPRESS LEADING ZEROS 
JSR PC, DONECK ;WAIT FOR DONE BIT AFTER RECAL - 
BIT #BiT2, IRXDB 31S INIT DONE SET 

1 YES SKIP NEXT INSTRUCTION 

TYPE ,MINITL ENO PRINT NO INIT DONE ERROR 

TST aRXCS WAS THERE AN ERROR ON START RECAL 
Fo Oe he ea ae 

ove 

MOV #10. PORETRY ioFt THE PARITY RETRY COUNTER 
CLR UNITSEL ELEAR UNIT SELECT ION WORD 

TSTB dRXDB ‘1 DRY BIT SET FOR UNIT 0 AFTER RECAL 
BPL 2S NOT SKIP NEXT INSTRUCTION 

BIS #B1T7,UNITSEL YES SET UNIT 0 READY 

BIT #140060, DTESTP “WERE ANY DRIVES SPECIFIED 

BEQ NOSE: *NO,SEE IF UNIT 1 IS 
BPL pad sR UNIT SELECTED, 

JSR P ieee TF 


T1175 READY 
BIT WOHDO DTESTP * WAS ra oh ents 


LEAR UNIT O READY BIT 


C 


sREAD STATUS OF UNIT 1 


;WAIT FOR DONE BIT 


; YES CONTINUE 


NO, 


BO3 
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€7( 732) 


10704 


MACYL1 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


MAINDEC-11-D2RxR-E 


DZRXRE.P12 








Lf PARITY ERROR 
ION 


i 
HAND 

FUNC 
NE 


aRxXCS : 


MOV sRDISTAT 


177364 DRY: 
177336 


: 
ASE 


o00004 
B40 015567 


BITS 


I 
PATTERN BITS 


COTTIOS IN PATTERN 


PM a IN_ SEQUENCE 
QUENCE 


CS_CONTENTS 


1 FOR DRY SET 
SELECTED 
IF NOT 
bi 
IF 
OUT 


;CHECK FOR RXDP OPERATION 


a FOR TYPE 


;D0ES LOCATION 41 CONTAIN THE NUMBER 10? 


;IN_ CHAIN MODE, DESELECT UNIT 0 


;CLEAR ALL BUT PATTERN BITS 


% 
5 
é 
z 
¥ 


‘PR 
> :SAVE SRXC 


IT1S,UNITSEL 


a. 

@ [es] 
br eet 7 7 -O0.- mM 
oot are wa. 
~m > COC 


; TEST ACT12 LOAD MEDIA INDICATOR 


es: 
3s: 
es: 
1§: 
STATER: 


177324 
100000 910704 
00004: 000010 


017014 





iene 


en Wek tt 


Ce ae ee oe oe ee oe oe eo re rere 


88S8S88888888 


Coe Koen Root Rae Roe oe Roe oe Doe oe | 
LINN 





canes ESE 
Ghthinihthintncncn ene RAR 


ne ee 


COMMA nt cncnt aaah 





= $8 
& m2 
ot Ee 
Sa rs 
~¢ : 
se 9B 
Sa ro) : 
a 
a ee 
Stze> HE 
 § 2 48 


u gS uF 
ee ¢ 2 = 
i | pa ee _ -~_« eo 
EF ottn ote es 
wo Me eh - —- - —- O 
Tr 
XX 
ils 
+ 
w 
oe 
es 
re 
ix 
the re 
or a 3 
-~tas 
T™ 
™ 
t®~ 
~br 
tt. 
“Oo 


o0 280000 


‘ ; OS 


emer 


Ro Ret Ree Meee Keen hee Roll on hoe hoe | 


SeSeseeSee 


‘ ZRSAOAGESEEC OSE SERS MDRREE BEEP RESOREODE 






Y a g = ee 
— aS w ~ 
gs : ys 2 5 
BES OR oS BEG 
san 4 BS 8 zi rg 
Ho2 & WO = S 
eset gos 
G25 3 wt & =aley eke 
Gog uy ES “Ek 
c=we wit os = ot 
S45 + 56 & nS 4S 2 Be S 
a Z ot 88-5 Whe ws 
wr @ FF us Ww EE 


a aie 
9 pan tae SS 5 FFAS oye inte bala ee See 


npeegesn renGEees se gnwnge Sev ENGEY EGE 


nore 


gtsgogts 


TSTLIMITS: 


001200 001201 3$: 


al 
my a § 


200 
001201 000114 
00120¢ 


-- -<«? 
o8s Ss 





a 
BRR eit 


O-UMTNDo 
8 nd we we 
0.0.0.0. 


| 
| 


A On ne ee en nee ed 








y & 
$8 Bee i 
» % tt 
5 3 2 ; 
~ £& gfe 
e FS egy 
er a a 
“PR get 
fo. EYE 
oo. Bee 
mz fF fF FESR 
+ ee " 
SB = 2s Du, 
2 @ 8 & 
Z rier gece eaten 
, ome FOBras BEEEZE 
= 
os 
re : 
bias r 2 
wee 8Ef ff & 
-~ul - 
ma 8 
«~ 
3% g8 8a 2m 
5 fi 
28 858 a3 
zh 28 8 
2 ee 


ci EES ARE 


C=11-D2RXA-E 


Pll 


MAT 


eae WW Ww WN i iese we wie ee 


S 

=G 9 
wo 
zo 5 6 


ICOND: 


Sui? 
0704 
5106 
5116 


“t-test os 


ora 


og od od od 


as 


=~ 
ao ocoooo 


onan 





PRESSED RESTART 
SS_THAN CODE 40 
10,20,AND 30) 


Me cove Le REGISTERS 
RETURN 
ME40 ERRORS OCCURED 


TRY 


;TYPE TEST SELECTIONS 
WES. CONT 
% NO DR 
S CAN 
I 
URN tes 
T UP_THE 
USE THE OD 
Mar aa 
WAIT F ay 
CHECK FOR 
Tae wea 
my eae = 
S 
tHE 
NOT 


sti tht! 


IF 
;HA 
NO 


“~ 
- 


TAT, #40 
RY 


ee oes 


JSR PC, TSTLIMITS 
i] 


RTS PC 
CK 
BIT 
BNE 
MOV 
MOV 
MOV 
JSR 
Bit 
ir 
a 
JSR 
CMPB 
BGE 
DEC 
BNE 


HLTS: 
CONTi2: 
HOME 


Fy 
z 
That 
a a 


acne BS 


017010 


ae 





FSSSSSDS SOTTO RO ROSSA SRR SESE ROSS 





I ssestaheiciosinsipniosieniisimanssi 


nu oe ~DZRXA-E 
DZRXAE . P GET VALUE FOR SOFTWARE 


G02e6S6 104400 015713 


673 
73 Obeeee 


Dooi3? 90 
i poe 20 tea 859001 011362 


BERBERA EES se 


oo 
wo 
roy 


RN 
CTco 


RH SSS IRAE RSS MRR LER 


Sas 
See 












ists 
=k 


st 
+ 


[a 


S8S8888 
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e 
SW 








0-SEP 
ITCH 
HLT3: 


RTN: 


55 HARARE AE SEER Se EAR AE EEE REESE EEE EEE EEE EEE EEE EEE 
;DECODE TEST BITS OF INITIAL CONDITIONS 


BITS 3,4,AND S OF THE INITIAL SWR SELECTED THE TEST WHICH 
1S TO BE PREFORMED. THEY ARE AS FOLLOWS: 


Fy SLFLAALELALERERLE KE ARAKAEAA LAA RE LLL AFA RASA ALALARERESRERELELEREREL 
MOV sSTACK,SP 
HOV SRT -tSP) 
MOV #1$,-(SP) 
INC RESTCNTR 


RESTART: 


1S: 
XSTART: 
TESTSEL: 


15: 


=f 
RE 
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GISTER 


; 
‘ 
, 
] 
’ 
° 
’ 
s 
9 
J 
’ 
, 


BRONTEST: 





TYPE ,MHALT3 
HALT 


MOV 81, PRESTRK 
Aes pA: 


BITS 


HH OO00MN 
00-004 
-O-0r-0O- OW 


RT 


, @#BRONTEST 
iS FS WERE Pece rest 7 
BNE 1$ 
HOV TeSTe 
bee RY ;ADJUST TEST BITS FOR CORRECT 
RY * BRANCH 
BISB RY, @#BRONTEST + INSERT TO BRANCH INST. 
BR. “BRANCH BY TEST OFFSET 
WRTONLY * WRI Y TION 
WRTRO * WRI READ FUNCTION 
Kp WTROCK *WRI vate READ VERI 
JMP BBONLY READ ONLY FUNCTION 
JMP DORVSHP WRITE, AND READ VERIFY ON ALTERNATING DRIVES 
IMP TEST7 *WRITE,READ,FOLLOWED BY READ VERIFY 








; YES,CAN’T CONTINUE AS RX11 WILL NOT RECAL 


‘RE co. SWITCH IS PRESSED GO TO START 
THE PRESENT TRACK TO TRACK 1 








TESTS 
NO TEST SELECTED (DEFAULT TO TEST 7) 
ONLY 


WRIT: 
FOLLOWED BY READ 


WRI 
WRITE FOLL BY READ AND VERIFY 


BS ye ath 






;RESET THE STACK POINTER 
SAND INTERUPT LEVEL 


ART COUNTER 
TYPE OLT INITIAL CONDITIONS 


TEEPE ae 
HCLEAR READ AFTER HATE: FLAG 










eee ett Coons 
OZRXAE . P 


“aectareriscrmseste Sateermeesnmttt tet mer 








0031 
031 
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0170i6 
017016 


176010 


175734 


175676 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


sp RERAAEERAA SERA ALELALAAS SE SALL REESE LL AEEKI AEE RLAAEREL ALES ELAELEE 


A WRITE ONLY FUNCTION USING DATA PATTERN AND 
QUENCE SPECIFIED BY INITIAL SWR SETTINGS 


THIS I 
: TRACK 
: Tel 
WRTONLY: JSR PC, GETPATTERN 
XWATONLY JSR PC, INTTTRACKS 
J5R PC; T 
1S: JSR PC, GET 
JSR PC’ WRITE 
DEC TRKCNTR 
Fok Be. STOP 
BR MaRtoncy 
J NITSECT 
SARL TE Jen Pe’ artaeeroR 
MOV #10. , SRE 
ONEWRT: MOV #10. .PRETRY 
FILLBUF: JSR PC, ABISUM 
MOV #FLLLDONE, -(S?) 
MOV #FILLER, -(SP) 
CLR BYTECNTR 
MOV #PR4, -(SP) 
HOV #1$,-(SP) 
1S: MOV 8FB E ,aRXCS 
2a Ok eae 
INC aoa 
BR FILLFLAG 
FILLER: TST (SP)+ 
MOV eEiL, PTYP1+2 
MOV #KFIL e+e 
MOV ef ILLOUF, PCONT+2 
JMP PARTEST 
PARTEST: INC PARLO/ 
CKSWR 
BIT #SW13,aSWR 
BNE CONT 
PTYP1: TYPE ,OFEN 
* MPAR 
TYPE} MCRLF 
CONT: 
TST aSWR 
ont 
HLT6: HALT 
CONT13: Bre f est 
TST PRETRY 


RACK 
FUNCTION 
TEST TRACK COUNTER 
;CHECK FOR LAST DRIVE AND EOP 
;NEXT PASS 





T UP FIRST,LAST,AND SECTOR COUNTER 
tp CK UP NEXT SECTOR 


;SET RETRY COUNTER 

;ADJUST DATA BUFFER -. CHECK SUM FOR ADDRESSES 
;PUT GOOD RETURNON STAC 

PUT ERROR RETURN ON STACK 


;EXICUTE FILLBUSER COMMAND 
TEST FOR REQUEST FLAS 
; TRANSFER DATA BYTE 


;WAIT FOR NEXT TR FLAG 


;PUT OF FILLBUF MESSAGE IN PAR ERR TYPOUT 1 
;PUT OF FILLBUF MESSAGE IN PAR ERR TYPOUT 2 
;1F NOT HARD ERR RE THROUGH PCONT TO FILLBUF 
;PRINT OUT PAR ERR AND TEST CONDITIONS FOR RETRY 


; INCREMENT PARITY ERROR 
; TEST DON’T PRINT ERROR SWITCH 
;PRINT THE PARITY ERROR MESSAGE 


an HALT ON ERROR SWITCH 


ST_NO ITCH 


ate RETRY COUNTER 
VE 10 ERRORS OCCURED 















2 
§ 


Q000 8 
ar 
Be 


z 
8 





oo 


SRNR ERS SSE Sees oom BRO : 


Foe 


: 
al Ge 


B10 
ll 
Ble 
813 
814 
815 
tty 001003 
is Gee able 


= 


| ee 
=I 


2ODGRR TERE SSE SROTENES 
: 


1 


Plt GET VALUE FOR 


& 
N 


27(73 
SOFT 


003674 


003630 
003722 
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P shiteH REGISTER 


BEQ CONTS sIF CLEARED LOG HARD ERROR 
PCONT: IMP FILLBUF “RETURN TO RETRY TEST THROUGH HERE 
CONTS: INC HPARLOG tINC.HARD PARITY ERROR COUNTER 

IPE : c s TYPE HARD PARITY ERROR 
PTYP2: TYPE ; OPEN 

TYPE "HERE 

IMP ot NTT ;GO DELETE THE UNIT,CAN NOT CONTINUE 

: SWITCH 


; 9 OF INITIAL TEST CONDITIONS SWITCH SETTINGS | IS THE DELETED DATA 

;FUNCTION INDICATOR. WHEN THIS BIT IS SET ALL WRITE / READ FUNCTIONS WILL 
‘SET AND CHECK THE DELETED DATA BIT ON THE DISKETTE. 

Petr itistitiiitititiitiitittttiititiiiitiiitittitititi tir t tii ity 


aj peeees MOV #10. PRETRY ;SET UP RETRY COUNTER 
REWRITE: MOV SWRTDONE, -(SP) :SET GOOD RETURN ON STACK 
MOV eu TER, - (SP) ;SET ERROR RETURN ON STACK 
MOVB IE,FUNCTION § :SET FUNCTION WORD TO WRITE 
git ag1T9, DtEST :TEST FOR WRITE DELETED DATA 
1S ADO ef Len — syne TOTAL WRITE FUNCTIONS COUNTER 
ADC it +2 BouaLe PRECL uy 
JSR PC, COMMNORD TRANSFER COMMAND TO DRIVE 
bt tt 
IMP NOINT 
WRTDONE : TST ERWRT :IS THIS A REWRITE FROM A DATA ERROR 
BNE 3 ee GO THIS SECTOR 
CCNTR TEST 
BNE 2$ Not LAST SECTOR Go TO NEXT ONE 
OMe RE 
1S: REREAD aie THE SECTOR 
2s: IMP XWRITE 
WRTER: TST (SP)+ ;REMOVE THE DONE RETURN FROM THE STACK 
BIT BIT! ASTAT iS THIS A PARITY ERROR 
BEQ WRTSEK T MUST BE A SEEK ERROR 


PARITY Roy waa A WRITE FuNiTI 
MOV PTYPi+2 : BODR OF WRITE MESSAGE IN PAR ER TYPOUT 1 
aren Te Pirate sPUT ROR OF WRITE MESSAGE IN PAR ER TYPOUT 2 
NOV SREWRIT PCONT+2 IF NOT HARD ERR RETURN TROUGH PCONT TO REWRITE 
IMP PARTEST GO INC LOG AND TEST FOR RETRY 


;SEEK ERROR OURING A waite FUNCTION 


WRTSEK: MOV SONEWRT, SEKRTY+2 TUP FOR WRT RETRY 
SPEYER A CAL. The CONTENTS OF CECTOR 1 
> TRACK 1 LOADED INTO THE SECTOR BUFFER. 


;T0 REWRITE THE CORRECT DATA THE 


mt RSE ECS | Se AST fear fh SB BE ROE 
TSR Pc, SEEKER Recon Seok ERROR 


SEEKER: MOV #ZSEKLOG,R3 ;SETUP INC INSTRUCTION FOR UNIT O LOG 


> 












MAINDEC-11-D2RXA-E 
DZRXAE 





Pll 
cy RE gen con 
Fe Be HE cco 
14 

84S Dose 020000 

846 0036e% 001004 

847 003626 se piso) 

a j 175350 

Bee 

8Se 00364 000000 

Be fg, om 

85S 003660 toss? 017022 

8S6 003664 O01 

8S7 003666 004737 002550 

858 003672 00137 003130 

8S9 003676 Oie703 917076 

860 00370e 004737 Oel044 

861 003706 005213 

See ieee 8 

003714 1 O01 

eee 003720 ie 016010 

866 003730 bea 706 000002 

4 003734 000207 

869 903736 104400 015775 

870 O0374e 104400 014567 

871 O037% 013737 011362 

a 

oe 

ae 003766 000207 

877 003770 O 011360 

tas 003774 oe 308 

GS ies tee Bis 

881 004010 001402 

CO40le 062705 020576 

882 004016 005215 

ooo 0040e0 000207 

886 O04022 013705 011360 

887 O040e& 006305 

stele erect 

BBS BB 
890 OO04036 062715 000001 

ce fee ie bie 

893 biarr W120 

B94 004062 004737 14 

89S OO04066 113777 012310 

896 004074 004737 007014 


: 
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175370 


175336 


010704 


004120 
175124 
175114 


STYP1: 
SWHLT1: 


HLT?7: 
CONTI4: 
SEKRTY: 
HARDSK : 
STYPe: 


SEKTYP: 
1§: 


TRKERR: 


1S: 


COMMWORD : 


20-SEP-76 15:46 PAGE 17 
GET VALUE FOR SOFTWARE SWITCH REGISTER 





DOr 
SS 


AQA2e 
esa 
Z 3 x 


+ 


oe 


EE Mitatay tot 
3 


é 


8353588 


g 
ARS... 
B 
a 


ai 3 


gSgSBREBRRS 

Sus ee RR 

ee Fm 

geaag ae 
nan an 


= 
<$ 
: 
if 
e 
: 


1 





; TEST A UNIT 1 LOG 

INCREMENT SEEK ERROR LOG 

INC ERROR PER TRACK COUNTERS 
;CHECK DON’T PRINT ERROR SWITCH 


;PRINT WRITE (READ) SEEK ERROR 


; TEST THE HALT ON ERROR SWITCH 
; CHECK TCH 
Pa cas ecP UI 
BEEN LOGED 
HARD 
IVES ON Wi ERROR 


UNRECOVERABLE SEEK ERROR 
SON RITE (READ) COMMAND 


;REMOVE SEEK ERROR FROM STACK POINTER 
;RETURN TO NEXT SECTOR BY DONE RETURN ON STACK 


; TYPE SEEK ERROR 
TYPE ADDRESS OF TRACK MOVED FROM 


;SET UP TO INC ERROR PER TRACK COUNTER 
;ADJUST FOR EVEN ADDRESS 

;ADDI OF UNIT 0 LOG 

; CHECK UNIT SELECTION BIT 

;1F IT O IS ACTIVE 

;ADJUS T 1 LOG 


FOR UNI 
;INC THE CORRECT COUNTER 








;GET_TRACK NUMBER 
sMULTIPLY BY 4 TO DOUBLE — 


; 00-08 tUDRESS OF TRACK BEL ACCESS COUNTER 


; INCREMENT THE 

;ADD CARRY TO HIGH ORD ORDER WORD 

;SET UNIT SELECTION BIT IN COMMAND WORD 
;SEND OUT eee TO DRIVE 

;WAIT FOR 

;SEND OUT TARGET SECTOR 

;WAIT FOR TR 








MAINDEC-11-DZRXA-E 
OZRXAE.Pi1 


Pictish te 


wouowo 
bo 
GtureO 


919 


eegezseezee 
endseSeses2es 


a8 
8 


2 


Es 


004312 


004316 
004 


113777 
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011360 175102 


004116 


B85 3 

=+ 

=+ 

Rivrurururogae 
turururorc’ ao 


z 


017004 


20-SEP-76 15:46 PAGE 18 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


1S: 
FUNCTION: 
RDAFTWT: 
saat 
TACK: 


WRTIRD: 
XWRTRD: 
18: 


MOVB oe aRXDB 
CLR -(SP) 

MOV #1$,-(SP) 

RTS PC 


0 
0 


p 


LMiTy ORIA PATTERNS AAD HEAD SEGUE 


;SEND OUT TARGET TEACK 


LOWER INTERUPT LEVEL TO ALLOW AN INTERUPT 


ie RARE SCT, 
EAT AR a 


5 5 RHRAKEAREREREAELA LE LES EERE RELL LALLA ERE LE SERA AERELALLAE LEA AE EERE 


Enel 


BY A 0 ar con 


NG SET 


;SET READ AFTER WRITE FLAG 


5s RHRRAAA RAE R SE REAEREEE LEE EE ERLE ALLER ERRL ARAL ALAA ARAL RARE RE RAELKE 


RDDONE : 


;READ DATA FROM THE DISKETTE 


JSR PC, INITSECTOR 
SR 


fe Fe eas 


IMP NONTER 


CMP #10. RORETRY 
BEQ CONT 
MOV #ZRDLOG,R3 


;DATA 


;SET UP RETRY COUNTERS FOR DELETED DATA 
ERROR 


CRC_ ERRORS 
5 CLEAR CRC DATA CHECK FLAG 


; GOOD RETURN ON STACK 
;SET READ ERROR RETURN ON STACK 


;INC TOTAL READ FUNCTIONS COUNTER 
;DOUBLE PRECISION COUNTER 


; TEST FOR DONE 
NO INTERUPT ON DONE 


AD RETRY EQUAL TO 10 


»NO ERRORS OCCURE 


I 


D 
NC. INST. FOR UNIT O ERROR LOG 
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OZRXAE.P11 GET VALUE FOR SOFTWARE SWITCH REGISTER 


353 004737 021044 ISR PC UILOG -TE EST FOR UNIT 1 ERROR LOG 
% 
0127 00012 017004 aby. (Ra) ag RORETRY sANE READ Bee ReaD Des 
957 2 104409 015627 TYPE REG s TYPE RECOVERABLE READ ERROR 
aeg hatte ptepes TPE ARR 
960 004366 022737 O00012 017006 CONTI: CMP #10. WTRETRY :IS WRITE RETRY EQUAL TO 10 
961 004374 001420 BEQ CONT2 :YES,NO E CURE 
92 004376 012703 017056 MOV #2WRTLOG,R3 ;SET INC. INST.FOR UNIT O ERROR LOG 
863 04402 004737 021044 SR PC.UILOG :TEST FOR UNIT 1 LOG 
964 OO4406 005213 INC (R3) * INC RECOVERABLE WRITE LOG 
965 004410 012737 O00D12 017006 MOV #10. ,WTRETRY *RESET THE WRITE RETRY COUNTER 
966 OO04416 104400 015240 TYPE ,DALLF 
967 OoO4422 104400 015627 TYPE | MRE sTYPE RECOVERABLE WRITE ERROR 
968 O04426 104400 016010 TYPE ‘MWRITE 
969 O04432 104400 015052 TYPE ‘MCRLF 
970 004436 004737 005204 CONT2: JSR Pb, DDCHK sCHECK FOR DELETED DATA INDICATOR 
971 oo04442 005701 TST _ wae ‘BIT 1S OF R1 IS READ 1 SECTOR FLAG 
455 poaaue ippoae Bre M3 ;IF SET,GO VERIFY DATA JUST READ 
an OO44S0 005337 012306 NEXTRD: DEC SECCNTR 
376 Spade 000207 RTS PC sREAD FUNCTION IS DONE 
978 OO4460 005726 RDERR: TST fag sREMOVE THE DONE RETURN FROM THE STACK 
365 GOSS DoIdig COCOOe 10070 oie Re Da ye ae 
981 PARITY ERROR DURING A READ FUNCTION 
982 004472 012737 015674 003264 MOV #MREAD, PTYP1+2 sPUT ADDR OF READ MESSAGE N PAR ERR TYPEOUT 1 
983 O04S00 012737 015674 003354 HOV #MREAD: Pate “PUT ADDR OF READ MESSAGE IN PAR ER TYPEOUT 2 
924 OO¥506 012737 O042% 003334 OY SREREAD, ONT+2 jE HARD GER. Re TURN THROUGH PCONT 10 REREAD 
age eatery 1 010070 1S: ig aei10, ASTAT if ne ERROR 
987 O04S26 001014 ines GO TEST AND LOG IT 
a9 004530 O01 004246 003674 saree ERROR BURN 4 READ FUNCTION NUE FOR READ RETRY 
890 004536 piers 015674 003630 NOV SHRERD.& ee SFT BBA Gr Res MESSAGE IN SEEK ER TYPEOUT 1 
991 O04544 012737 015674 003722 fa ea :SET ADDR OF SSAGE IN SEEK ER TYPEOUT 2 
992 9045s2 004737 003576 *RECORD SEEK ERROR 
993 004556 000734 BR NeXt RD GO TO NEXT SECTOR,CAN’T READ THIS ONE 
gay sCRC ERROR DETECTED WHILE READING 
995 004560 004737 003770 CRCER: JSR PC, TRKERR sINC ERROR PER TRACK C 
ox 004564 005701 TST RI :IF READ ONLY, REPORT. DATA Bac ERROR 
998 tea Goses? 004126 BAe pa TARR” ;SET DATA CHECK FLAG 
999 904574 737 OUSS36 JSR PC, EMPBUFF *CHECK FOR A DATA 
1000 O04600 005737 oO06442 TST ERCNTR ;HAS THERE A DATA ERROR 
1001 boveDs 001052 BNE DATACRC *YES,REREAD AND/OR REWRITE THE DATA 
1002 1 017046 MOV #ZCRCBAD,R3 *SET INC. INST.FOR UNIT O ERROR LOG 
1003 004612 021044 SR PC UILOG sTEST neh UNET 1 ERROR LOGS 
1pbe rte 1 CKSUR iy — 
100 032777 020000 174364 BIT T suis, , aSWR sTEST DON’T SWITCH 
} 001004 
1008 104400 O1S644 OIbE , MBADCRC sTYPE CRC GENERATOR ERROR 
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DZRXAE.P1L1 GET VALUE FOR SOFTWARE SWITCH REGISTER 








1009 104400 015052 TYPE ,MCRLF 
ID oeedG beso? 7uaue - ;TEST HALT ON ERROR SWITCH 
18 So 100001 or Pe 
int peed 92777 004000 174332 aise a #SW11, dSWR nO” RETRY SIKTCH 
ie Be BLO ouree BS Bere ee 
18i8 tsa natn BED 3$ ea LOG HARD ERROR 
1018 O04672 000137 oo4e46 JMP REREAD 0,60 REREAD DATA 
1019 004676 012703 017106 38: MOV #ZHCRCBAD,R3 Pt INC. INST.FOR UNIT O ERROR LOG 
1020 bow7Ge 737 021044 JSR PC,UILOG TEST FOR UNIT 1 ERROR LOGS 
1021 706 13 INC (R3) 
1022 004710 1044CO o1Se40 TYPE ,DBLLF 
1023 904714 104400 O1S5644 TYPE | MBADCRC TYPE HARD CRC GENERATOR ERROR 
1024 004720 104400 0O150S2 TYPE >MCRLF 
1025 004724 104400 015724 TYPE 'MHALTLI ;AND HALT AS THE CRC GENERATOR DOESN’T WORK 
1066 004730 o00000 HLT11: HALT 
1 DATA CRC ERROR REREAD AND/OR REWRITE TO GET GOOD DAT 
1028 OO04732 012703 017042 DATACRC: MOV #ZCRCLOG,R3 sSET INC. INST.FOR ONT 0 ERROR LOG 
1029 004736 004737 021044 JSR PC. UILOG’ ;TEST FOR UNIT 1 ERROR LOGS 
1030 OO04742 005213 INC (R3) *TRUE DATA CRC ERROR 
1031 OO4744 104405 CKSUR 
1932 004746 032777 O20000 174240 BIT #SW13, aSWR Test DON’T PRINT ERROR SWITCH 
1033 004754 001004 BNE 4§ 
1034 004756 104400 015736 TYPE ,MCRC ;TYPE DATA CRC ERROR 
1035 O04762 104400 O1S0S2 TYPE ;MCRLF 
1036 OO4766 104405 4S: CK 
1037 904770 005777 174220 TST aSWR :TEST HALT ON ERROR SWITCH 
1038 004774 100001 BPL CONT16 
1039 004776 000000 HLT12: HALT sHALT ON ERROR 
1040 O0S000 032777 OO4OD0 174206 CONTI6: BIT #SW11,aSWR TEST NO RETRY SWITCH 
1041 005006 001005 cs IF SET LOG HARD ERROR 
1042 005010 005337 017004 DEC RDRETRY "HAVE 10 ERRORS OCCURED 
1043 005014 001402 BEQ S$ YES LOG HARD ERROR OR REWRITE DATA 
1044 005016 000137 IMP REREAD *NO.GO REREAD THIS SECTOR 
104S 005022 012703 017102 cS: MOV SZHCRCLOG,R3 SET INC. INST.FOR UNIT O ERROR LOG 
1046 005026 737 Oel JSR PC, UILOG *TEST FOR UNIY 1 ERROR LOGS 
1047 OusG3e O0sel3 INC (R3) sINC HARD CRC ERROR LO 
1043 005034 O1 017004 MOV #10. ,RORETRY *RESET READ RETRY COUNTER 
1049 doso4e 004122 TST ROAFTWT I$ THIS A READ AFTER WRITE FUNCTION 
1050 1021 *YES.GO REWRITE IT 
1051 005050 012703 017112 MOV #ZHRDLOG,R3 *NO,SET INC. INST.FOR UNIT O ERROR LOG 
1052 005054 004737 Oel JSR PC,UILOG’ TEST FOR UNIT 1 ERROR LOGS 
1053 005060 005213 INC (R3) *READ ONLY, HARD READ ERROR 
ips BOSDEE to Og Gee TYPE * RONREC TYPE UNRECOVERABLE READ ERROR 
’ 
{pee Bosore ipauoo pieces TYPE ‘READ 
1057 005076 104400 015052 CONT?: TYPE ‘MCRLF a dteneeat ‘aad tae 
{beg ated ate 4 ite The REkTao READS Next ercton CAN’T READ THIS ONE 
DET peti eee oo4o00 174072 aie ee #SW11,QSWR TEST NO RET TC 
{BED pretee 1011 BNE mei, TEL fe fines“ ERROR 
1063 005124 005337 017006 DEC WTRETRY i AVES Io” REWRITES BEEN DONE 
1064 005130 OD1406 BEQ 7S :YES,LOG HARD WRITE ERROR 
L 


oe atm | MACY11 27(722) 
DZRXAE.P 


id 
tate 


enna - 


a 
2 


Q 
“J 
— 
8 
ol 


3 


Fo ee 
oulom 


an 

TAP ERORGE 
pees § 

m 


Qo 
2 
© 


BERRA Sos GRR OES dal Volt 


+ 0-02 be 0 bs 8 Bs he bt be bb be bs bb bs B= be bh hb = hs 8 8 = bh 0 hh pe hee 


He ed ed ed ed eed ed ed 
Sow NTN FOM-OSSVRNLOUeKS 


01700& 


001212 
010970 


173742 


010704 


173676 


010070 CONT1O: 


010704 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


COM ERWRT 
ADD#e, SP 


IMP ONEWRT 
MOV #ZHWRTLOG,R3 
ISR PC UILOG 


(R3) 
HOV #10. ,WTRETRY 
, DBLLF 


BIT #BITS,DTESTP 
BEQ CONT] 
BITB BITE, ASTAT 


TYPE MIS 

BIS were. UNITSEL 

ISR PC, TYPADR 

TYPE ,ACRLF 
SWR 

TST aSWR 

BPL CONTI? 

BIT #SH11, SHR 

DEC DDRETRY 

BEQ 4$ 

JMP REREAD 

MOV #ZHDDLOG,R3 

JSR PC,U1LOG 

INC ( 

TYPE ,DBLLF 

TYPE »MODER 


TYPE 
ISR pt CTBROR 
TYPE fc 


JMP 
BIT WEITC ASTAT 
BEQ 


INC (PR 
BIS #BIT8, UNITSEL 
JSR PC, TRKERR 


; TYPE UNRECOVERABLE WRITE ERROR 


; TEST BIT 9 AS TO DELETED DATA TRANSFER 


; TEST HALT ON ERROR SWITCH 


; TYPE UNRECOVERABLE DELETED DATA ERROR 


5 ERROR FLAG. 
if ERROR PER TRACK COUNTER 









NO, SET THE WRITE CAUSED BY ERROR FLAG 
sREMOV VE RDDONE ADDRESS FROM STACK 
“REWRITE SECTOR THEN REREAD TO CHECK FOR ERROR 
*SET INC. INST. FOR UNIT 0 ERROR L 

‘TEST FOR UNIT 1 ERROR L LOGS 

“HARD WRITE ERROR 

*RESET WRITE RETRY COUNTER 






; THIS {5 A DELETED DATA FUNCTION 
:00 BIT SHOULD BE SET 

sSET_INC INST FOR UNIT O ERROR LOG 
TEST FOR UNIT 1 ERROR LOGS 

INC MISSING DELETED DATA LOG 

INC ERROR PER TRACK COUNTER 


; TEST DON’T PRINT ERROR SWITCH 


; TYPE MISSING DELETED DATA BIT 
:SET HAD ERROR FLAG 
TYPE ADDRESS OF ERROR 


;HALT ON DELETED DATA ERROR 
; TEST NO RETRY SWITCH 
3 IF SET LOG 
10 ERRORS BEEN LOGED 

YES LOG HARD ERROR 

REREAD SECTOR 
cet INC_INST.FOR_UNIT O ERROR LOG 
TEST FOR UNIT 1 ERROR LOGS 


;READ NEXT SECTOR 
;THIS IS NOT A DELETED DATA TRANSFER 


Teor roe UNIT 1 RoR 0 ERROR LOG 








z 


MACY11 27(722) 
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020000 173550 


een 
u BS 


Swe Naren 


HB SoLFHAESO-SBBVRRLSN 


a 





03 
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BIT #513, OSHR -TEST DON’T PRINT ERROR SWITCH 
TYPE MUNXDD ; TYPE UNEXPECTED DELETED DATA BIT 
BR DDERR 

RETURN: RTS PC 


5p ARR RRA EEEE EER EEA REE EERE EE RARER EERE EERE 
pS A SECTORS,READ AND VERIFY ALL SECTORS 


WTRDCK: COM ROAFTWT 
JSR PC, GETPATTERN 

XWTROCK: JSR PC, INETTRACKS 

1S: JSR BC, GETTRACK 


;SET READ AFTER WRITE FLAG 


BNE 
JSR PC,STOP 
BR XWTRDCK 


fp RERERARALER ARES RE SELES LELEL ALLA LE LE REEEREREREEELELE LE LELAELEEEEE 


;READ A SECTOR,EMPTY THE SECTOR BUFFER AND VERIFY 
THE DATA READ AGAINST CORE DATA BUFFER 





Te 


006436 CKBYTE: 
005746 


0 b= b+ 0 b= b= 8 B= = = bb OO 0 0 0 0 0 0 = Bb 0 = 0 0 0 8 Bb 0 0 Bs ob 0 bb 0 9 bb pe pe 
me be ban Oe be Be Fe be Bae be be Be fe Be Bae he be be be be Be bs 2 hs fo Bo 2 2 2 be 2 Fs Be ho Be Fo Bo Fae Be Fe fame Fae Be he B2 H = P= fs Bo Fe Fe 


FALINI—-S 


READCHK: BIS #81715, R1 ;SET READ ONE SECTOR FLAG 
JSR P GO READ ONE SECTOR 
EMPBUFF : TST SECCNTR IF CLEARED NO SECTOR WAS FOUND 
JMP EXIT GO TO NEXT TRACK CAN’T READ THIS ONE 
2s: cLR BYTECNTR *CLEAR THE BYTE AND ERROR COUNTERS 
BIS #B1T7,R1 Rl BIT 7 IS USED AS FIRST ERROR FLAG 
JSR PC, ADSSUM “ADJUST DATA AND CK SUM FOR ADDRESSES 
CLR CKSUM *SET UP FOR CHECK SUM ACCUMULATION 
MOV #EMPDONE, -(SP) SET UP RETURN ADDRESSES 
MOV #EMPER, -{ 
CLR -(SP) sLOWER INTERUPT LEVEL 
HOV #15,-(SP) 
1$: MOV #EBIE, IRXCS sLOAD EMPTY BUFFER FUNCTION 
EMPFLAG: JSR PC, TRCK ‘TEST FOR TR FLAG 
MOVB 3RXDB BADBYTE ;SAVE BYTE FROM DISKETTE 
ADD BADBYTE, CKSUM “ACCUMULATE CHECK SUM 
CMPB YTE, (RO)+ “COMPARE AGAINST GOOD BYTE 
TAER ‘TF NOT EQUAL GO TO DATAER 
INC BYTECNTR 
BR EMPFLAG GET NEXT BYTE 








MAINDEC-11-DZRXA-E 
D Pll 


bas fi fo Po psp 3 


9.0 :0.8 0.0.0.0. 0.000 9 ERED COM we 334 


BELRRLGRLESESEREONSS ISIN & 
g 


b= bt b= b= b> 0b 6 b= & > & = bh Ps Fp eh pe 


8 


SS 
Sromneoms a 


rururururururur 
sb 0 he 
WOnNCUI£COTU 


SSSA 
totaal slat aot 


STHELSEHSLERRESLS 


al 
wW 


Bs hs ht Bb be Bs ht heh 


8 


O123i 


Doel 
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016604 
016605 
005746 
017002 


017003 


010704 


173172 
173162 
000012 


006126 
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MOVB TARGET, BUFADR 
MOVB TSECTOR, BUFADR+1 


MOV SUM, CKSU 
bp TARGET CKSUM 

ADD TSECTOR, CKSUM 
MOVB CKSUM, BUF EOR#176 
SLB CKSUM 


va B eketM BUFADR+177 

MOV #BUFADR, RO 

RTS PC 

0 

TST (SP)+ 

MOV SMEMPTY, PTYP1+2 

MOV #MEMPTY: PTYP2+2 

MOV uENPOLFF, PCONT+2 

JMP PARTE 

BIS #8IT8,UNITSEL 

INC ERCNTR 

BIT #SW13, ISWR 
NOERTYP 

BIT wSiile, ASR 

CMP ERCNTR, #10. 

BGT NOERTYP 

TST DATACK 

BEQ 2S 

TSTB RI 

BPL TYPERR 


TYP 
TYPE ‘MCRLF 
JSR pt. TYPADR 


TYPE 

BIC #BIT7 

MOV BYTECHTR 1$ 
JSR RS,SGLOEC 


sp 
nov _ghOBYTE, -(SP) 
T TORS 3 
TYPE ,DBLSP 
HOVE (RO), , GOODBYTE 
MOV GOODBYTE, -(SP) 


TYPE ,MCRLF 
CKSUR 









;SET FIRST AND SECOND BYTES WITH ADDRESS™S 


;GET THE PATTERN SUM 

ADD TRACK ADDRESS TO CHECK SUM 

; ADD SECTOR ADDRESS TO CHECK SUM 
NSERT CHECK SUM 19 DATA BUFFER 

t GENERATE NEGITIVE CHECK SUM 


s INSERT NEG,SUM INTO DATA BUFFER 
$SET SCORES OF BYTE IN RO 


;REMOVE THE DONE RETURN FROM THE STACK 

;PUT ADOR OF add MESSAGE IN PAR ER TYFOUT 1 
;PUT ADDR OF EMPTYBUF MESSAGE IN PAR ER TYPOUT 3 
;NOT HARD ERR RETURN THROUGH PCONT TO EMPTYBLF 
‘REPORT PARITY ERROR 


;SET THE HAD ERROR FLAG 
INC THE BYTE ERROR COUNTER 


sTEST PRINT ERROR SW IN SUR 
*DON’T PRINT THE ERROR 
: TEST TORT 10 ERRORS SWITCH 
fel ALL ERRORS 
ERRORS BEEN TYPED 

:YES, DON’? PRINT ANY MORE 
“WAS THIS A READ CHECK DUE TO SRC ERROR 
NO, REPORT DATA ERRORS 
ie TEST FIRST ERROR FLAG 

YPE THE DATA CRC ERROR 


‘TEST FIRST ERROR FLAG 


;PRINT ERROR HEADER 


;PRINT TRACK AND SECTOR LOCATIONS 
HEADINGS 


:SET U UN 
;CLEAR FIRST ERROR FLAG 
PRINT BYTE NUMBER 


;PRINT BYTE READ FROM DISKETTE 


;GET GOOD BYTE 
RETURN RO TO NEXT BYTE IN BUFFER 


;PRINT GOOD DATA 





l 
1233 906172 005777 173016 TST JSR sTEST HALT ON ERROR SWITCH 
le34 176 100001 : BPL CONT2O 
{ 3 Boeste 434 Eontas Ine BYTECNTR 
1232 17 Dosese : : IMP EMPFL 
1239 go6212 ? 126 EMPDONE: TST DATACK : WAS THIS READCHECK CAUSED BY CRC ERROR 
240 16 00140! BEO 1$ :NO. CONTINUE 
1241 RTS PC ‘YES, RETURN TO CRC ERROR HANDLER 

18: TST ERCNTR ‘WAS THERE ERRORS 

BEQ CONT3 NO E 


;YES, TEST DON’T PRINT SWITCH 
;DON"T PRINT THE ERROR 
;PRINT THE TOTAL DATA ERROR COUNT 


172754 


2" 
ae 


3 
& 
pax 
me 4 


006260 


ry 

Ba 
moe | 
Sees 

3 





t 





a 


a 
bee 
q RESIS cote Us aaeenar USS 
ie 
3 
*p 


3$: 


1251 > 916327 T MSUM s INDICATE IF CHECK SUM WAS GOOD OR HAD ERRORS 
1252 Oobeb6 TSTB ¢KSUM 
1253 BEQ 4 
1254 016067 TYPE , MERS 
1 016322 4S: Poe MGOOD 
1257 1S0S2 : MCRLF 
-SET INC. INST.FOR UNIT 0 ERROR LOG 

J ‘TEST FOR UNIT 1 ERROR LOGS 
260 I } tINC DATA ERROR LOG 
teb aC 003770 JSR PC, TRKERR :INC ERROR PER TRACK COUNTER 

“<ee 

l 006 33c 004000 172654 BIT sSW11,aSWR ; TEST NO RETRY SWITCH 
1264 BNE 6$ :IF SET LOG HARD ERROR 
1265 017012 DEC QTARETRY ‘HAVE 10 ERRORS BEEN LOGED 
1568 JSR PC, REREAD :NO,GO REREAD THE DATA 
iets IMP *GO'RECHECK THE DATA 
1 6S: SZHDATALOG, R3 YES, SET INC. INST.FOR UNIT O ERROR LOG 
1 PC, UILOG *TESt FOR UNIT 1 ERROR LOGS 


(R3) *INC HARD DATA NO STATUS ERROR 


* MUNREC ; TYPE UNRECOVERABLE DATA NO 
* MOERHOR STATUS ERROR 


333548 


3 


CONT3: 


a8 


och 
pope te 3 
ae 


gp ;READ THE NEXT SECTOR 
;CLEAR THE ONE READ FLAG 


DSS 
“te 


~ 
w 


3$: 
EXIT: 


MAINDEC-11-DZRXA-E MACY11 E7(732) 20-SEP-76 15:45 PAGE 24 
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| 
| BYTECNTR: 
YTE: 


Oo000 Wout 





RRRG 
oe 





1288 fp RRRERELEESELA EE SALLA ALAS RAAL AL ALALA AAR LE RALARAALAERAALL RELA ALES 
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;READ AND VERIFY ALL SECTORS WRITTEN BY 
;PREVIOUS WRITE FUNCTION 


s Ts4 
HK: JSR PC,GETPATTERN 

XRDCHK: JSR PC, NITTRACKS 
JSR PC,GETUNIT 

1s JSR PC; GETTRACK 
JSR PC. READCHK 
DEC TRKCNTR 
55 HE srr 
BR XRDCHK 


5p LHEAARAESESELELALALELELES CERES ERELALA ALES EESELELAT ERA EARLELE ES 


READ 
DOES 


;D0 A one CUM TION ON ALL SECTORS 
a oof NO IFY THE DATA, ONLY TESTS FOR CRC ERRORS 


BOOS 
= 
| 
: 


Calg Oglala 
Saag 
x 
3 


im 
bea 


MAINDEC@11-DZRXA-E ACYL 27(722) 
“Pll GET VALUE FOR SOFTWARE SHITCH RECISTER 
1289 
1330 
153) 
by 
ae 
1% Ooew OONT37 102 
1835 Petey boweae | OibeT4 
150g oe4e0 004737 011254 
1699 OoeNeH O0w737 
iY Boe born, toe 
Me Mer7e boas? 010732 
Bo0re2 
Goes10 ea he 
1a bossa? o10e14 
At 
530 
011356 
Ses? 010732 
Bpeess pooves 7 


= b= bs ban pe pee ban Be Bae ne De ne Pees ns Pee eae ae ne ae ne ene ne ese ne ns Ps ae as ho ae Pe Pas Pe ns Pun as Hus fo b-0 Haw fw be Pw 
FEST SIBIRREBHOS HON Be ots sein rtatarses Ben GoRON 
02 b= Ot Be Fe Bae ba Pe ee 
wre —OVOONCWN £Wwfe-O 





BuBR 
oy 
pa 


5p LRSRELEAEA LER LLLELELLL SEL LLARLALELESLELALLRE LEE ELELLLLL ERE LERE 
WRITE AND CHECK ANY DATA PATTERN, AND ANY TRACK SEQUENCE 
jBUT ALTERNA E BETWEEN DRIVE UNITS ON EACH TRACK SELECTED. 


DRVSUP : ;SET THE READ AFTER WRITE FLAG 
2s: 
1$ 


;SET UP FOR UNIT O 
;GET THE TRACK TO BE ACCESSED 


;NOW GO TO UNIT 1 ON THE SAME TRACK 












MAINDEC=11-DZRXA-E 
OZRXAE.P11 





mmol 


Be eos iacsacosee SERENE 
g Seine iene 


SARA PATA RSA SM ARN EB RENTS VIII Sse Re Re RRR RA RAINS 





prey 


GET VALUE F 


172150 


1 27(732) 
OR SOFT WARE 


= 
a 


011370 


010704 


001212 
001212 
O0lele 


000200 


rs 
SW 
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PF STE FIRST ABLE OF TEST 7 FORCES THE TRACK SEQUENCE 
:T0 INGRINEN T UP THROUGH ALL THE T TRACKS BOING. MATTE / READ CHECK FUNCTIONS. 
NNO fe 


; THe. SEQUENCE SELE 
ie VERIPieS Wrat fhe Bat Ae OFS er ne Da UE MOE or 


COMPLETION OF THE a. 
TNE DELETED "BATA ii aN, ui eer CONDITIONS IS COMPLEMENTED AND THE NE 
:PRSS at en UNDER THIS NEW CONDITION. 


TEST?: JSR PC, GETPATTERN 
MOV SEQSAV ;SAVE THE SELECTED SEQUENCE 

TEST?Xx: MOV #1, SEQUEN “FORCE INCREMENT SEQUENCE 
cont THT :SET READ AFTER WRITE FLAG FOR ERROR TESTING 
J , INITTRACKS 

- 13k PC, GETUNIT 

: 13 Pei 

DEC TRKCNTR 31S THE FIRST OF THE PASS DONE 
BNE 1S oa iNO CONTINUE WRI ING BND READING 
SV Ray SEQUEN see CE PECTED SEQUENCE 
JSR PC, INITTRACKS 

es: JSR PC, 
ISR PC 
DEC TRKCNTR ;IS THIS HALF OF THE PASS DONE 

ee :NO, CONTINUE READ CHECKING 

GFF blot arse. idGve'ay SERED arte peo ULE 
Bre TESTOX’ 2 1F isto Bit SOL SE T GO TO NEXT DRIVE 
MOV #1 *RESET STACK FOR ACT11 EOP 
BIT 88 9, DTESTP :NEXT PASS, COMPLEMENT D D BIT 
BIC 8 19, DTESTP ;IT WAS ON CLEAR IT 

38: BIS aed DTESTP sIT WAS OFF SET IT 
BR TEST7x’ 


SEGSAV: 0 
5p ASRALLELALESSLELELSLELLLLARELALLALAL ELSE LL LLRAARSELE LAE SEALE LL EE 
;TEST FOR TRANSFER FLAG AND PROGRAM NOT HUNG 


TRCK: 1 2c HUNG COUNTER 
abe ple «Asp i Raice INTERUPT LEVEL TO INHIBIT INTERUPTS 
HOV #35, -( A 
3S: TSTB ORXCS TEST F 
*SKIP NEXT INS .IF NOT SET 
RETURN TO 





T 
1§: CMP BYTECNTR, #128. 
BEG es 










So SS ai 
DZRXAE. 








00S237 


Ke 
i 


ms & 


ie 


j 


Reel 


Ede 


; 


8 
3 


ee 





007200 INC HCNTRI sIF THE HUNG COUNTER OVERFLOWES EITHER 
THERE WAS NO TR FLAG OR NO INTERUPT OCCURED 
AFTER 128 BYTES TRANSF 
BNE 3S :NO : LOW EST FOR FoR TR F FLAG 
000040 172120 2s: BITB #DONEBIT, aRXCS iTES OR A DONE i CH WOULD INDI INDICATE A 
HTRRRSrERINe COMERS ion 5 weg 
BEQ 4S ;1F DONE NOT SET, TYPE HUNG 
006434 CLR BYTECNTR CLEAR et COUNTER SO IT WON’T INTERFERE 
farTH WITH TESTING £0 NG FOR DONE. 
TST (SP)+ RETURN RODRESS FROM STACK 
CLR -(SP) ROWER” NTERUPT LEVEL TO ACCEPT AN INTERUPT 
007106 HOV 848, -(SP) ; THE INTERUPT WILL RETURN THROUGH PREVIOUSLY 
007200 4§: Inc HENTRI trLOWS ; ine FOR FLAG TO SET 
vectors HLT21: HALT —— . (1 ) CONTAINS RETURN 
; tPBORESS OF BAITING -L 


015432 


017034 


1e682 
171754 


007250 


MACY11 27(732) 
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007202 
172042 


171774 
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; TEST FOR ROY SP 3 AND PROGRAM Ai 
a Seni I 
ee 





CLR HCNTR1 HUNG COUNTER 
MOV #177740, HCNTR2 UPER COUNTER F FOR 31 FULL LOOPS 
2s: IT sDONestT, ORXCS Pag FOR 
Q OE PRE RETURN 
HOV R3, ~(SP) RETURN ADDRESS BACK ON THE STACK 
1S: B00 #1, HCNTRI Ret THE WORD COUNTER OVERFLOWES 
HCNTRe THE PROGRAM MUST BE HUNG 
TST HCNTRe : 
BNE sIF NO OVERFLOW RETEST FOR DONE 
TYPE ,MHUNG 


HLT20: HALT i AboRE Se FEN CONTENTS OF R3 (177703) HOLDES 


HCNTRI: 0 
HCNTRe: 












;AN INTERUPT DID NOT OCCURE AT A FUNCTION DONE FLAG. 


NOINTER: INC INTER sINC INTERUPT ERROR COUNTER 
GIy S413, 054 ;TEST DON’T PRINT ERROR SWITCH 
TYPE » MINTER ;TYPE NO INTERUPT ON DONE ERROR 
1S: CKSWR’ 
TST aSWR ;TEST HALT ON ERROR SWITCH 
BPL_CONT21 
HLT1S: HALT sHALT ON ERROR 
CONT21: JSR PC, INTSERV JSR TO INTSERV AS IF IT WAS AN INTERUPT 


§ ARREARS ALARA E LL RERRELEL ARERR RAR LER ERE ARATE RRA AR RERER REELS 


Q 
Bo base 
= gp 


3 


x 


S 


o-4 B+ PH bp pH GH 
eo 


ee 


~ 
o 
~- 
£ 


MAINDE 
DZRXAE. 
457 
2 
460 
2 
463 
464 
1468 
1 
146 
is 


bos2eb 
bo? Sed 
007272 
a 
es 
borase 
bore 
es 
ies 
airibo 
= 
ar 
Bars 
ipa 
= 
arse 
bore 
007520 
07250 
Boreas 
007544 


AF 


a 


dooade 
po0e0? 
005237 
iue777 
001004 
100 





cn 


: 
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010070 
010070 
01007C 
171670 


171660 


171622 


0704 
17014 
171560 


171550 


oo 
— 


010072 


171502 


007542 





04 
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INTSERV: 


2s: 


4§: 
3$: 


1S: 


15: 


NOPRNT: 





1S: 


; {NTERUPT SERVICE 


MOVB_@RXDB,ASTAT 
TST aRXCS 


eas RXERROR 
IT #B81Te,ASTAT 
BEQ eS 


JMP RXPUR 
BIT #3,ASTAT 


1 
BITB #D0NEBIT, ARXCS 


INC T 

Bg oun 

BIT Soils, ca 

TYPE ,MUKNINT 
MCRLF 


RTI 


~ 
Ru} 
: 


S233 
BRR 


mae 
5 

& 

y 





.SAVE THE ERROR AND STATUS WORD 
‘TEST THE ERROR FLAG 

'THERE MAS AN ERROR GO REPORT IT 

!1S INIT DONE SET 

PPE REPORT POWER FAILED AND RESTART 
VER) REPORT CRC BITS a 

'YES GO LOG ERROR 

'TS DONE SET 

:IF SET RETURN TO TEST 

SINC UNKNOWN INT ERROR LOG 


;TEST_DON’T PRINT ERROR SWITCH 


;DON’T PRINT 


; TYPE UNKNOWN INTERUPT 


;RETURN FROM T 


;BYPASS INTERUP 


?RETURN TO 


HE INTERUPT ; 
T POINTERS ON STACK 


PROGRAM 
;NO STATUS ERROR FLAG ERROR 
;TEST DON’T PRINT ERROR SWITCH 
; TYPE NO STATUS ERROR ERROR 


CONT 
T 


POOR CODE. SHE COMMENTS OF RE WOKE RERDILST 
tOORESS OF CORRES. ‘i a F 
INC THE CORRECT ERROR CODE COUNTER 


iON 
IN B STATUS 
CODE 


THERE ° DEFINITE 
TO pee 3 AN EVEN ADOR 


; TEST PRINT ERROR SWITCH IN SWR 


;TYPE ERROR HEADER 


;TYPE PASSES COMPLETED AT ERROR 


AS THERE I 








GO4 
DORRRECPLE  nCET vawul FOR SBETWARE sioTCH RecrsteR © PCE &9 


1513 o0075S0 104400 ee 
{etd PbaGds OOM 
1S) ne 

151 S 

1518 0075684 004737 007716 
1233 Gavees dosza? b1Gee0 
17h 007600 032737 000020 
1855 Gores 12777 00013 
1524 007616 004737 007122 
1B Divees Bere? ooo 
i need 

1528 007634 032777 000002 
1258 007644 ithe 002046 
1831 boveso g00rs3 

1S$32 007652 105777 171332 
1533 007656 100406 

ipa 007660 104400 teed 
ies Govero dears? Blou7a 
1S37 007674 062706 O00004 
2 Pepeiiena Sosa 

1540 007702 104400 016344 
1541 007706 104400 014136 
‘ 007712 000137 00270c 
iene 007716 104400 O14SS5 
lea? bors poss? bldg 
14a 007739 900000 

i733 007736 yeaa Sart 
iy Bes fae a 
1552 007756 004537 O14446 
1553 007762 000000 

1554 015047 
Lae 
re ae 
za tCTE: 1 Steed 
ey fie ieee Hine 
S62 Ol 104402 

1563 010024 001 

1564 ot ot 

1565 01002 LONSoD 015047 
1566 010032 104400 015250 
1567 010036 013746 002140 
1 010042 104402 


004120 
171370 


171354 
171346 


007734 


010704 


We 
-BYT 
-BYT 

2s: 

Ss: 

6$: 

7$: 

3$: 

4§: 

RXPWR 

TYPADR: 

3$: 

es: 

$: 

TYPSEL: 
TYPOS 
BYTE 
-BYTE 
MOV 
TYPOS 


TYPE pRXCS é TYPE A roe STATUS REGISTER 
ee Hie ae eS a 
SUPP 5 Eel ZEROS 

JSR PC, TYPADR ADDRESSES AND RUN CONDITIONS 
TYPE AR ne 

JSR pt PRINT THE STATUS REGISTERS 
BIT T astty, COTE TON ‘WHAT DRIVE IS BEING USED 
MOV TAT, IRXCS sDRIVE 0 BEING USED 
JSR_PC, DONECK TEST FOR DONE FLAG 
HOV. SRDISTAT, BRXCS sDRIVE 1 BEING USED 
BIT #2, SRXDB ;WAS THERE A PARITY ERROR 
BEQ 2 :NO. CONTINUE 
JSR PC, STATER YES REPORT THE ERROR 
BR 2s *REISSUE THE C 
TSTB “WAS DRIVE READY SET 
BMI 4 *YES RETURN 
Tee mee" 
JSR pe BELUNIT sNO GO DELETE THAT UNIT 
ADD #4: SP *MOVE ERROR RETURN TO TOP OF STACK 
RTS PC 
TYPE ,MRX11 ;ONLY THE RX11 POWER HAS FAILED 

“PRINT POWER FAILED 
IMP RESTAR :GO0 TO RESTART 
TYPE ,MTRK sTYPE TRACK ADDRESS 
MOV TARGET, 3$ 
JSR RS, SCLOEC 
TYPE .MSECT TYPE SECTOR ADDRESS 
are hi 745° 58 CLEAR ALL BUT SECTOR ADDRESS 
JSR RS, SGLDEC : 
OPEN 
art ET agh¥9, UNITSEL sWHITCH DRIVE IS BEING USED 
T MUNITO ;TYPE UNIT 0 
Nee near TEE Piel coe 
PAT, -tSP) 3 3 SAVE pAT FOR PYPECUT 
GO TYPE--OCTAL ASCII 
1 i TYPE 1 DIGIT(S) 
i :SUPPRESS LEADING ZEROS 

TYPE {MTEST TYPE TEST CODE 
TEST, -(SP) :;SAVE T TEST FOR TYPEOUT 


33G0 TYPE--OCTAL ASCII 





MACY11 27(732 
T VALUE FOR SOF TWAR 


8 ee 
BE i 


— 
Oo 
io 


BS 


8 
4 


ae 
1’ 


OOOOOOCOOOOOOO00000O 20 200000000 
Bat b= bs Bae 3 Bo Bs Bt Bs Bo ps he hn hs be pe a GP Ps pe 


OOOOOOHO000000000 


IPCI ESPRRB TSE 


B 
& 
8 
& 


aw 
SE. 


8 
R 


uf 


; 


ng 


ae Be 


; 


Higa! 


sg 
ooo 
ew Fb 


SERS SSUORe 


Sage 


Oonoooo0000000 
i 


Ce ee ee ok 


: 


004120 


010704 


010704 


01 
1 


170762 


010072 


, 
E SW 


ASTAT: 
BSTAT: 


DELUNIT: 


TYPCODE: 
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04 


1 ;;1YPE 1 DIGIT(S) 
0 ;;SUPPRESS LEADING ZEROS 
vee » DEL aP 

MSEQ 


TYP ; TYPE SEQUENCE CODE 


SEQUEN, -(SP) 11 SAVE /PEGUEN FOR, TYPEOUT 


1 :: TYPE 1 DIGIT(S) 
: SUPPRESS LEADING ZEROS 


RTS PC 
0 
0 
BITB_eBITH,FUNCTION sTEST FOR PRESENTLY USED UNIT 
free »MUNT TO sUNIT 0 HAS BEEN DELETED FROM USE 
TYPE ’DBLLF 
BIC abl ToUNITSEL ;CLEAR UNIT 0 SELECTION BIT 
TST UNITSEL sHAS UNIT CTED F 

1S {UNIT 1 NO ¢ ERROR REPORT 
IMP TESTSEL :CONTINUE ON OTHER UNIT AT BEGINING OF TEST 
Type ,MUNITI _ UNIT 1 HAS BEEN DELETED FROM USE 
TYPE’ . OBLLF Las 
BIC #BITIS, UNITSEL sCLEAR UNIT 1 SELECTION BIT 
TSTB UNITSEL "WAS UNIT O SELECTED FOR 
BMI 2s *YES CONTINUE ON UNIT O 
COM SHORTRPT *SET SHORT REPORT FLAG 
JMP ERDUMP *CAN’T CONTINUE TYPE OUT STATISTICAL REPORT 
MOVB SJRXDB, ASTAT ; THE A STATUS 
MOV SRDER, JRXCS : B STATUS REGISTER 
JSR PC, DONECK :WAIT FOR DONE FLAG 
BIT #2, @RXDB s HAS RE A PARITY ERROR 

PC, STATER : T THE PARITY ERROR 

2s’ s YES REPORT TH STATUS B 
HOVE SEXDB,BSTAT “SAVE THE B STATUS CODES 
TYPE ‘;MASTAT sTYPE THE CONTENTS OF THE TWO STATUS REGISTERS 
ASTAT; -(SP) SAVE ASTAT FOR TYPEQUT 

3390 TYPE--OCTAL ASCII 
3 3; TYPE 3 DIGIT(S) 
0 : ::SUPPRESS LEADING ZEROS 
TYPE > MBSTAT 
BSTAT? -(SP) ;;SAVE BSTAT FOR TYPEOUT 
3;G0 =-OCTAL ASCII 

3 TYPE 3 DIGIT(S) 
PE NCRLE ;;SUPPRESS LEADING ZEROS 
rts pt 



















MAINDEC-11-DZRXA-E MACY11 27(722) 20-SEP-76 15:46 PAGE 31 
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ibs 33 REKKAAKAAAFRARRERL LAL LAA LARA LA RRA KERALA A LALLA RELA RARE EAELAFFLEE 
162? sDECODES THE DATA PATERN SELECTED IN THE SWR 
1629 ‘BITS 6,7,AND 8 OF THE INITIAL SWR SELECTED THE DATA PATTERN 
1630 310 BE USED AS FOLLOWS: 
lose : ‘ BITS DATA PATTERN 
1634 >0 00 NO PATTERN SPECIFIED (FORCE RANDOM DATA) 
1635 >001 ALL ZEROS 
1636 tee ALL ONES 
1637 ite «© FLOATING ZERO 
1638 >1 0 0- FLOATING ONE 
1639 3@ ese ALTERNATING BITS 
1640 2. a 8 ALTERNATING PAIRS OF BITS 
teu tee RANDOM 
1643 "NOTE: ALL DATA PATTERNS WILL BE MODIFIED SO THE FIRST BYTE WILL 
1644 “CONTAIN THE TRACK ADDRESS. THE SECOND BYTE WILL CONTAIN THE UNIT 
1645 : AND SECTOR ADDRESS IN WHICH THE DATA IS WRITTEN. THE LAST 
1646 *TWO BYTES CONTAIN THE CHECK SUM NUMBERS. 
a4 } iri titiittiti titi titi titi itiiittittiii ttt titty 
ieea 
1651 010312 142737 000377 010360 GETPATTERN: BICB #377, a#BRONPAT ;CLEAR BRANCH OFFSET 
165¢ 010320 005037 01061 CLR SUM :SET UP FOR ACCUMULATION OF CHECK SUM 
1 910324 005737 0104, TST PAT ?IF NO PATTERN SPECIFIED FORCE PATTERN 7 
1654 010330 001003 1 
1655 010332 012737 o00007 010420 MOV #7. PAT 
1655 O10340 013704 010420 1S: MOV PAT,RY GET PATTERN BITS , 
1657 010344 005304 DEC RY ;ADJUST FOR CORRECT OFFSET 
1658 01034 ASL RY 
1659 010350 150437 010360 BISB R4, J#BRONPAT sINSERT OFFSET 
1660 010354 tan 016606 MOV sBUFADR+2, R4 :SET UP ADDRESS OF FIRST BYTE 
ob 010360 : BRONPAT: BR ‘hated i BRANCH BY OFFSET SELECTED 
18S Bt SEE reo ster IMP DATA 377 DATA 
1664 010372 000137 O10444 IMP FLOATO “FLOAT A O THROUGH ALL 1°S 
1665 010376 000137 010506 IMP FLOATI *FLOAT A 1 THROUGH ALL 0’ 
1666 010402 000137 010514 IMP PAT125 125/052 DATA WORD 
1667 O10406 000137 010534 IMP PAT314 314/063 DATA WORD 
1668 Oi04i2 000137 010544 JMP RANDATA “RANDOM DATA BYTE 
1670 
1671 010416 o00000 DATABYTE: 0 
1672 010420 o00000 PAT: 0 
1e7a 
1575 s 5 RERRRALERERLA REEL L REAL RELA REAL AA LALA RELA RR ALLRA REL AAR LLLALEEE 
1677 ;LOAD SOFTWARE BUFFER WITH ALL ZEROS 
1678 ; Pel 





CLR DATABYTE 
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] 

1 






1681 010426 004737 010564 PATGEN: JSR PC,LOAD ;G0 LOAD THE DATA BUFFER 
1682 610432 000775 BR PATGEN 

a4 fp RERAAARAA EA RRARA ELAR ALAR ELLA EERE REERERRE EE RELE RELL EL EL EAE REREES 
"1685 sLOAD SOFTWARE BUFFER WITH ALL ONES 

1887 >: Pse 

ess 

1690 O10434 112737 000377 O10416 DATAI: MOVB #377, DATABYTE 

1691 oO10442 000771 BR PATGEN 






163s fp RRRRRERAA LARA EERE ER EE ERLE LEAR LEER REAR ERE LEAS REL EEL EL ELA REREER 
1695 sFLOAT A_O THROUGH ONES IN SOFTWARE BUFFER 

1696 > P=3 

te 

1699 D144 112737 000376 O10416 FLOATO: MOVB #376, DATABYTE ;SET UP_A ONES FIELD 

Hat pipes Gieree ooo so. En Gat (EEE a 
1 piaee I t BCC 2s’ IER Ie THe wc) BIT 1S RT EARED 
1703 010462 o0S202 INC Re *SET Re IF N 

1704 O104e 004737 010564 23: ISR PC, LOAD :GO LOAD THE DATA BUFFER 

1706 O104 ST Re :IS R2 NONZERO 

1707 O10474 001401 BEQ 3$ 

tops pipens Sores} grouse 3$ BELB DATABYTE a ee ce 

1719 1 Apes 24 : BR 1S 

171 5p RERRRRERALELE RE REEL LE LEE LER ERLE ERA RE LEE RARE ERELELELE EE EEEELELEE 







1714 racer AS THROUGH ALL ZEROS IN SOFTWARE BUFFER 










1717 O10S06 005037 O10416 FLOATI: CLR DATABYTE 
1718 010512 000757 BR XPATGEN 

oy 5p RHRRRELAER SELLA LEELA REE LAE EERE RA RALL ALAA ALR AAL ERLE LE REALL ERALEE 
1722 sLOAD SOFTWARE BUFFER WITH ALTERNATING 1 AND O FOR 

1723 * ONE BYTE AND THE COMPLIMENT INTO THE NEXT 

ie PEt, 

i726 O10514 112737 000125 O10416 PATI2S: MOVB #125, DATABYTE 

1727 010522 004737 010564 X“PATGEN: JSR PC, LOAD 

1728 010526 105137 O104i6 cong DATABYTE ; # (SEE NOTE BELOW ) 
1768 01053e 000773 

1731 E: TO MAKE PATTERN S AND 6 COMPATABLE WITH THE RX8 PATTERNS 





nop? THis ANS TRUGT pon (CHANGE THESE 2 LOCATIONS T 
17 ;THIS CHANGE IS FOR INTERPROCESSOR RX¥* COMPATABILITY TESTING ONLY. 


5p RRRERRERERE ERE EERE RARER EAE RARE REAR EEA ARAL REAR RS ARR ELLER ER RE EE 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


B 
B #BIT6 UNITSEL 
R 





3LOAD SOFTWARE BUFFER ae ALTERNATING PAIRS OF 1 AND C AND 
wrt INTO THE NEXT 








MOVB #314, DATABYTE 
BR XXPATGEN 


5 EHS EEE HEE SEE ERE HE SEE RHEE REE REE REE EERE EEE EERE 
sLORD a BUFFER WITH RANDOM DATA PATTERN 
: . 


JSR PC GET RANDOM NUMBER 
MOVE SARUM BATABYTE 
JSR PC, LOAD 
BR RANOATA 
ADD DATABYTE, SUM sACCUMULATE THE PATTERN CHECK SUM 
MOVB DATABYTE (Ru) :LOAD THE DATA BUFFE 
CMP sBUFADR+176,R :HAVE 124 BYTES BEEN GENERATED 
01S IF YES, RETURN TO 
RTS PC *IF NO,RETURN TO PATTERN GENERATOR 
TST (SP)+ “TAKE PATTERN RETURN ADDRESS OF STACK 
RTS PC *RETURN TO TEST 


5p RERRRLRAE ARREARS RARER ERE AE LEER AE EERE EE RLEE RE REEERRELEERELES | CRE 


; TEST FOR SELECTED UNITS, DRIVE READY,AND USED CONDITIONS 
ALSO CONTAINS A “HAD ERROR” FLAG TO'BE TESTED AT EOP. 
; THE BITS IN UNITSEL ARE USED AS FOLLOKS 


=UNIT 1 SELECTED VIA SWR 
sUNIT 1 USED BIT 
=THIS PASS HAD AN ERROR 
=UNIT O SELECTED VIA SWR 
=UNIT 0 USED BIT 
=UNIT SELECTION FOR FUNCTION WORD 
55 AEE SEE HEE EEE RSE EEE EAE SESE EE EEE SEE SEER ESE EEE EERE 
BIT sgt Te, UNZTSEL ;WAS UNIT O JUST USED 
BNE 1 UNIT O USED CHECK UNIT 1 
TSTB UNITSEL ;WAS UNIT O aeeECTeD 
BPL 1 iNO GO TO UNIT 1 
BIC #40020, UNITSEL ao | UNIT 1 USED BIT AND FUNCTION UNIT BIT 
pte #8176, UNITSEL SET UNIT O USED BIT 
TST UNITSEL ;WAS wit 1 SELECTED 


es ;NO N 
BIT #BIT14,UNITSEL ;HAS Ha 1 BEEN USED 


NE 2s ; YES N 
; T 0 USED 








CLEAR UNI BIT 
#40020, UNITSEL “SET UNIT 1 USED BIT AND FUNCTION UNIT BIT 
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1793 
1794 
1795 
1798 010704 oo0000 UNITSEL: 0 
1738 :TEST THAT ALL UNITS HAVE BEEN ACCESSED 
9705 0057 010704 DONE: TST UNITSEL sIS UNIT 1 SELECTED 
1861 o is ; ite 040000 010704 oP. seITIY UNITSEL Ve RETURN BEEN USED 
1 6 ob hate Bie rt ‘ i Vee Hee ub 
1804 010724 062706 oo000e ADD #2,SP *BYPASS NOT DONE RETURE ON STACK 
1805 010730 1S: RTS PC 
1608 
1808 010732 004737 010706 STOP: JSR PC, DONE ;HAVE ALL DRIVES BEEN USED 
1803 010736 005037 007200 CLR HCATRI 
1810 b107He 005237 O21042 INC PASCNTR sKEEP TOTAL NUMBER OF PASSES 
1611 010746 005737 O11i4e TST CHARCT “HAVE 72 EOP INDICATORS BEEN TYPED 
1812 010752 001005 BNE 3$ 
1813 010754 104400 o150S2 TYPE ,MCRLF sYES DOA CRLF 
1814 010760 b1e737 177670 011142 MOV #-72. ,CHARCT RESET CHARACTER COUNTER 
1815 Ol 011142 38: INC CHARCT 
1816 010772 032737 OO00400 010704 BIT #8178, UNITSEL ;TEST HAD ERROR FLAG 
1817 011000 001403 *NO ERROR PRINT D 
1818 011002 104400 015057 TYPE ,MEREOP *HAD ERROR PRINT ? 
1819 O11006 O00404 BR 1S 
1820 611010 104400 015055 2s: TYPE ,MEOP ;PRINT EOP INDICATOR 
1821 011014 104400 015061 TYPE | MABELL 
1822 011020 104405 1S: ’ 
1823 011022 032777 O40000 170164 BIT #SW14, ISWR ;TEST EOP HALT SWITCH 
1824 011030 001417 CONT22 
1825 011032 104400 o1S0Se TYPE ,MCRLF 
1826 011036 104400 016142 MPASS ;AT HALT ON PASS PRINT NUMBER OF PASSES COMPLETE 
1827 011042 013737 Oel04e 011054 MOV PASCNTR,6$ 
1659 ree poe ae 6$ JSR RS, SGLDE 
1830 011056 eatied 015052 TYPE ,MCRLF 
1831 011062 O00000 HLT16: 
1832 011064 011142 CLR CHARCT sTHIS CAUSES A CRLF AFTER HALT AT E.0.P. 
1833 01107 porae O40SO0 010704 CONT22: BIC #40500,UNITSEL *CLEAR USED BITS, AND “HAC ERROR” BIT 
1834 011076 e273 000007 o10420 CMP #7, PAT IF RANDOM DATA GET NEW DATA FOR BUFFER 
183% 011106 rite 010312 JSR PC, GETPATTERN 
1 Ollli2 005237 007200 2s: INC HCATRI ;WAIT FOR THE EOP INDICATOR TO BE PRINTED 
1838 O11116 001375 BNE 2S 
1839 013120 013705 oo0o4e MOV as42,RS sACT11 END OF PASS HOOKS 
1840 011124 001405 BEQ HERE 
1841 O11126 900005 RESET 
‘1e42 011130 004715 LOGICAL: JSR PC, (RS) 
1843 011132 900240 NOP 
1844 011134 o00240 7 
1845 011136 o0Ce40 Fe NOP 
1846 011140 000207 HERE: RTS PC 
1848 011142 op0000 CHARCT: 0 
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; TEST FOR HEAD SEQUENCE SELECTED BY INITIAL SWR SETTING 


'BITS 0,1,AND 2 OF THE INITIAL SUR SELECTED THE TRACK SEQUENCING 
:TO BE FOLLOWED AS INITICATED BELOW 


1849 
134 5 KERALA LALA RA RARE LARA LALLA L LALA AR ELELL SKA SKE E RELA FEELERS F EL AERE 
1858 ; INITIALIZE TRACK SEQUENCE 
1854 
185S 011144 942737 100200 001200 INITTRACK: BIC #100200, 0D ;CLEAR FIRST USED BITS 
1856 Oliise 732 001200 TST 0 iT SI CONTENTS OF ID, 90 FOR 0 
1 lil 1 BNE 1 PECIFIED USE’ THE 
18S8 011160 112737 000114 001201 MOVE #114, ID :NOKE "SPECIE TED SET ID TO MAXIMUM 
1859 O11165 105037 001200 CLRB OD 
1860 011172 113737 001200 O11360 13: MOVB OD, TARGET oh It OD AS PRESENT TRACK 
1861 011200 37 011366 ‘INIT WORKING ID AND OD LOCATIONS 
1862 011204 113737 901201 011366 MOVB ID,XID 
1863 Ollele 37 011364 LR XOD 
1864 011216 113737 001200 011364 MOVB OD, XOD 
1865 Oui 01 ia 011366 011356 MOV XID. TRKCNTR »SET UP NUMBER OF TRACK MOVEMENTS 
1 li 011364 011356 Sug x0D? TRK KCNTR 
1867 011240 005237 911356 TRKCN 
1868 011244 052737 100200 001200 eIs #OOC08, OD ;SET FIRST TIME BITS IN ID,OD 
1869 Ollese 000207 RTS PC 
1870 
tee 
1873 ss RKSKKA ALA AAR ALKA HAK ALAA AERA LE RARE AAR ALEK AAE AER SARE REE AK KEKE 
1878 
ieoe 
1878 
1879 : 
1880 : _ BITS SEQUENCE 
1881 -0 00 NO SEQUENCE SPECIFIED (DEFAULT TO SEQ 7) 
1882 ;001 INCREMENT FROM OD TO ID 
1883 : = 1 0 Bb Prev FROM ID TO OD 
1 : ie PREVIOUS 2 SEQUE ENCES 
1885 : ! 0 0 UNCE BETWEEN 1D 
+] 
: 
te i ? 4 fae ING BONE AND DECRENENTING ID 
1888 ees OM TRACK SELECTI 
1830 . Tiititititititititititititititititiiititititiitittitititttitt yt 
1892 011254 113737 011360 011362 GETTRACK: MOVB TARGET, PRESTRK ;RESET TO PRESENT TRACK 
1893 Olicbe Lie? 37 000377 011320 BICB #377, JKBRONTRK CLEAR OUT BRANCH OFFSET 
1894 O11 0057 11370 ST SEQUEN *IF NO SEQUENCE CpECIPTED FORCE SEQUENCE 7 
tech Lier DLe7a7 011370 HOV #2, SEQUEN 
1835 Bt Soe ea ieee 1S: Noy ae ApENCRY ;GET SEQUENCE BITS 
1898 011310 005304 DEC RY ‘ADJUST FOR CORRECT OFFSET 
1899 O11316 006304 — ASL.RY 
1900 011314 150437 011320 - BISB R4, J¥BRONTRK sTHIS BR INST.{S MODIFIED BY THE TEST CONDITIONS 
130 ‘SELECTED ,10 BRANCH TO ONE OF THE SEQ. BELOW 
1903 011320 000777 BRONTRK: BR. sBRANCH BY OFFSET SELECTED 
1904 011322 000137 011372 JMP SEQ1 : INCREMENT 


Se tata | 
DZRXAE.P GET VALUE FOR SOFTWARE SWITCH REGISTER 
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Ine E08 HIRCRERENT oecenex 
TNE Fos SCREASING BOUNCE 
NP SEOE tee 
JMP SEQ7 : RANDOM 
TRKCNTR: 0 
TARGET: 
PRESTRK: 
XOD: 0 
XID: 0 
SEQUEN: 0 


5 j RRR RRR ERR RE EERE EEE ARES EE EERE RE REAR REED EEE EE EEE EE EEE 
rahe tf FROM OD+1 TO ID AND RETURN TO 0D 





SEQ: BIC #100200, 0D :CLEAR FIRST TIME BITS 
CMPB XID, PRESTRK : PRESENT TRACK EQUAL TO ID 
BNE 1$ ;NO GET NEW TRACK 
MOVB OD, TARGET ‘YES RETURN TO OD 
BR NEWTRK ; NEWTRK INCREMENTS THE TRACK MOVED TO COUNTER 
“AND RETURNS TO NEXT TRACK 
1S: INC TARGET “ADD 1 TO TARGET TRACK 
BR NEWTRK 
ss RELLRA HAAS ELA FKA SLA RS KA LARA LAE SARL KALLA HERES RAKA LE RA HALA RRA LZLE 
;DECREMENT FROM ID TO OD 
> $22 
SEQ2: TSTB ID sFIRST TIME BIT SET 
BPL 1$ *NO GET NEXT TRACK 
BIC #100200, 0D YES CLEAR FIRST TIME SITS 
MOVB x1 TARGET -GO TO ID 
1S: DEC TARGET sMOVE TO NEXT TRACK 
BR NEWTRK 
$ 5 RRRRERRAE ELLE AE AEA LEAL EEE EKA LEELA RE ERE ELE REE EEE EE REE REEERERE 
j INCREMENT THEN DECREMENT TRACKS 
. 
SEQ3: TSTB OD sCHECK FIRST TIME BIT 
BPL 1$ *NOT FIRST TIME THROUGH 
BIC #100200, 0D CLEAR FIRST TIME BITS 
DEC TRKCNTR 
xa RSL TRKCNTR RESET TRACK COUNTER TO DOUBLE THE COUNT 
; SUB XOD‘RO GET DIFFERENCE BETWEEN ID AND OD 
SUB TRKCNTR, RO $15 TRACK COUN ER HALF DONE 
BGE SEQ2 :YES GO DECREMENT 


TRACKS 
NO CONTINUE INCREMENTING TRACKS 
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ITCH REGISTER 



















5 RRERERRESEREASASREDERSERSES AREAS EESEEESERESESEEESERSEESSS EE SES 
pears I BETWEEN ID AND OD ONLY 
: s 


001200 SEQ4: BIC #190200, 00 sCLEAR THE FIRST TIME BITS 
001200 CMPB PRESTRK, OD ‘OID IT JUST DO OD 
BEQ IDNEXT YES 
011360 HOVE 00 TARGET *NO GO TO OD TRACK 
011360 IDNEXT: MOVE ID, TARGET 360 DO ID TRACK 
BR NEWTRK 


5p RAREREFSRASERERALLLLE LEELA LLALESEEALLLLELELE LLL ELE SELALASLLELEE 


; INCREMENT THE “HEAD M TO" couTeRS AND RETURN 
; THROUGH HERE FROM ALL TRACK SEQUENCES 


NEWTRK: MOV TARGET,RS GET TRACK ADDRESS 
ASL RS MULTIPLY BY 4 TO DOUBLE PRECISION 
ASL RS : INT ER SSES 
ADS sHOMOVE,RS ‘ADD ON SS OF HEAD MOVE COUNTER 
ADD #1, (RS) :INC COUNTER 
ADC 2c RS) *ADD CARRY TO HIGH ORDER WORD 
RTS PC *RETURN TO ACCESS NEXT TRACK 


5 RRREEERER SEER EEAE SEER ER AEE EE EERE EEE EEE EE EER EEEERERELELE SEE EES 
pBOUER pEnEEN DECREASING ID AND INCREASING 0D 


SEQS: TSTB My ;TEST FIRST TIME BIT OF ID 
INC TRKCNTR sADJUST FOR ONE EXTRA MOVEMENT TO TRK 00 
001201 BICB #200, 1D “CLEAR wine! TIME BIT OF ID 
360 HOVE X10, TARGET :MOVE TO ID 
1S: r3B sTEST FIRST TIME BIT OF OC 
Bre ;CLEAR FIRST TIME BIT OF OD 
Hg Sep teeceT IMOVE TO OD 
011356 2S: BITB #1, TRKCNTR TEST COUNTER EOR 000 OR EVEN 
ine ¥0 3000, nove TO 1 TO 0D 
eres ay — AST TRACK IS BEING ACCESSED 
3S: aN " siepoer + FB TRAC i FROM ID 
BABE erm: BLUR 
011360 EOee Ob TAR Moy sTHIS IS LAST TRACK RETURN TO OD 
XRETURN: BR NEWTRK 








: 
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EGISTER 

BIC #170000,R0 
MOV eae 
MOV RO, 
RTS PC 

RANI: 0 

RAN2: 8 

RANUM: 


5p RARER RRA REE EERE EERE EE EERE EEE EERE EERE E ARETE AEE EE EEE EE 
;SECTOR INITIALIZATION AND SELECTION 
INITSECTOR: TST FIRST s teat FIRST AND LAST FOR O 


BNE 1$ “SECTORS SPECIFIED USE THEM 
INC FIRST “NONE SPECIFIED SET FIRST TO 1 
MOVB T ‘SET LAST TO MAXIMUM 
1S: MOVB_LAST, SECCNTR :SET UP SECTOR COUNTER 
SUB FIR CENTR 
iNea°e cL SeconTR 
RST ReEcTOR sPUT FIRST SECTOR IN TARGET SECTOR 
Sue. THREE, TSECTOR *SUB_ 3 FROM TSECTOR AS FIRST TIME THROUGH 
IT GETS ADDED BACK ON. 
#1, INTLEAV :SET INTEPLEAVE OFFSET 
RTS PC 
SECCNTR: 0 
TSECTOR: 0 
I : 0 
T 3 
GETSECTOR: ADD THREE, TSECTOR sADD 3 FOR INTERLEAVING 
CMPB * TSECTOR 
BGE 1$ NEW SECTOR IS WITHIN, LIMITS 
MOVB FIRST, TSECTOR : TARGET, SECTOR TO INTERLEAVE 
ADD I , TSECTOR : ON I AVE OFFSET VALUE 
‘ INC INTLEAV *UP DATE THE OFFSET VALUE 


-SBTTL TYPE ROUTINE 


REFSLELLE KSA SERLEESEPSSRESESEP AER ESHA RSE RSE SSE ER RES LRE REE EREESE 
 KROUTINE. TO 0 TYPE ASCIZ RESSAGE ME Ge Must TER TERMINATE. WITH A 9 8 BYTE. 
* #THE Prine WILL ico B NUMBER 
MSIE: BNL SEH ie treet ot ete hs em 
:#NOTES: 2 CONTAINS Te CHARACTER of 48 FILL AFTER. 
S#CALL: 
*#1) USING A TRAP ndNSTRUCTION 
* TYPE » MESADR 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
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$TYPE: TSTB ie 


BPL 
HALT 
SR 3$ 
1S: MOV RO, -(SP) 
MOV (SP) ,RO 
23: MOVB = (RO) +,-(SP) 
BNE 4§ 
TST (SP)+ 
60S MOV (5P)+.RO 
3$ B00 #2, (SP 
RT 
4§ CMPB Ss BHT, (SP) 
BEQ 8$ 
CMPB BCRLF, (SP) 
BNE 5 
TST (SP)+ 
TYPE 
SCR SCHARCNT 
BR 23 
cS: ISR PC, $TYPEC 
6S: CHP SFILLC, (SP)+ 
MOV S§NULL, -(SP) 
73: DECB ~=:-A{ SP) 
BLT Eg 
JSR PC, STYPEC 
DECB 
BR 
sHORIZONTAL TAB PROCESSOR 
8S: MOVB e’ (SP) 
: ISR Pc, $TYPEC 
BITS 82, SCHARCNT 
PE Rees 
BR 24 


STYPEC: 


a 


MOVE 
ae sch, 2lSP) 
gre NPE 

1S: CMPB sé, O( SP) 

Q STYPEX 
“ INCB  (PC)¢ 









31S THERE A TERMINAL? 
tt FALT HERE 

: HAL IF NO TERMINAL 

3 RYE PDRESS OF ASCIZ STRING 

1 ETT OOBRRC TER TO BE PyEeD ONTO STACK 
+ BR ff IT witte’ THE TERMINATOR 

2IF TERMINATOR POP IT OFF THE STACK 
;;RESTORE RO 

s3ADI T RETURN PC 

BRANCH IF <HT> 

;;BRANCH IF NOT <CRLF> 

3;POP_ <CR><LF> EQUIV 

: A CR AND LF 


A NULL NEED TO BE TYPED? 
NO--GO POP THE NULL OFF OF STACK 


tTYPE A 
Eh Ay F NOT AT 
+ BOP OFF STACK 


:iG5T NEXT CHARACTER 
ttMAIT UNTIL PRINTER IS READY 


;;LORD CHAR TO BE TYPED INTO DATA REG. 
3318 CHARACTER A CARRIAGE RETURN? 


;;BRANCH IF_NO 
biVESe~CLEAR CHARACTER COUNT 
ie 

331 CHARACTER A LINE FEED? 
teRaNCH IF YES 

330 THE CHARACTER 
;;CHARACTER COUNT STORAGE 


;;TTY PRINTER STATUS REG. ADDRESS 
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SLF: .ASCIZ 
-SBTTL BINARY TO OCTAL (ASCII) iis TYPE 


55 EAE RAE SE EAE EEE EEE EEE SEE EEE EEE 
T BINARY NUMBER TO A E-DIGIT 


j #STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


ATH S ROUTINE IS TO CHANGE A 16-BI 
EROCTAL (ASCII) RUNBER AND TYPE IT. 


te MOV NUM, -(SP) ;;NUMBER T0_BE TYPED 
YPOS 





3% T *:CALL FOR TYPEOUT 
# .BYTE N *:N=i TO & FOR NUMBER OF DIGITS TO TYPE 
<i "BYTE ::M=1 OR 
= ;1=TYPE LEADING ZEROS 
i# ::Q=SUPPRESS LEADING ZEROS 
j #STYPON--—-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
sab TYPOS OR STYPOC 
t% MOV NUM, -(SP) NUMBER TO BE TYPED 
ia TYPON *:CALL FOR TYPEOUT 
: ESTYPOC---ENTER HERE FOR TYPEOQUT OF A 16 BIT NUMBER 
: ” MOV NUM, -(SP) s;NUMBER TO BE TYPED 
+ TYPOC >:CALL FOR TYPEOUT 
STYPOS: MOV 9(SP), = (SP) s ;PICKUP THE NODE ata 
HOVE OVE (SP)+: +1 + KOMBER OF pierre a TYPE 
go se gtaecnlae atmos te 
STYPOC: #1 FILL SWITCH 
Nove #2’ SoMODE+1 $3 eFt rok Sey Bicits 
STYPON: MOVB 85, SOCNT ::SET THE ITERATION 
MOV R3,-(SP) 11 S6VE R3 
MOV RY, -(SP) 33 RY 
MOV RS, -(SP) 3;SAVE_RS 
HOVE SoAODE A :GET THE NUMBER OF DIGITS TO TYPE 
ROD tb, Re He OR FOR MAX. ALLOWED 
SOFTLL, RY T THE reno FT ultce 
HOY 12(SP),RS i Floge rite I T NUNBER 
1S: Sir f2 ETAT tes NTO “C" 
BR 3$ ;;G0 DO MSB 
2s: ROL RS ::FORM THIS DIGIT 
ROL RS 
ROL 








STPB: Hore & ;;TTY PRINTER BUFFER 
$NULL: .B ssCONTAINS NULL CHARACTER FOR FILLS 
SE iLL $ . i 3s GONTARNS # OF FILLER CHARACTERS REQUIRED 
FILLC: .BYT ss INSERT FILL CHARS. AFTER A “LINE 
eke soT A be AVAILABLE” FLAG (B1IT<07>=0=YES) 
QUES: . Bn i STION MARK 

: .ASCIT (15> ;;CARRAIGE RETURN 

«l2> LINEFEED 









BORNRE PEE BINARY 


2241 


anos 


PRE DRe RoR aSS 


ONO OOOOOOOOOOO0O OOO OOO00000000 


eRe 


CC 


~-_ 
ye | 
$ 


010503 


z 


eee 


es sees rrees 
e 


bh be hb = Be fh bs Po fh FH = Pe hs he he hm hee Bo oh Pe 


eat: 
oe 


MACY 7 (732) 
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TO BHA ase I) AND TYPE 


013036 
177770 


uUUCE 
UU 


3$ ROL fg R3 T LSB OF THIS DIGIT 
eke BB MODE i Gere FBrS" pict? 
BPL 7§ ::BR IF NO 
BIC #177770,R3 ::GET RID OF JUNK 
BNE 4§ ti TEST FOR O 
Ist RY t SS THIS 0? 
Q § 2:BR IF YES 
4S: INC RY ::DON’T SUPPRESS ANYMORE 0’S 
BIS #’0,R3 ::MAKE THIS DIGIT ASCII 
S$: BIS a’ 'R3 ::MAKE ASCII IF NOT ALREADY 
MOV 3,88 js SAVE F TYBING 
T $6 THIS DIGIT 
7$: ECE $0cnt +s COUNT BY 1 a tea 
BLT 63 He f BORE 
INC RY INSURE LAST DIGIT ISN’T A BLANK 
BR 2g 260 b0 THE LAST DIGIT 
6S: MOV (SP)+,RS : RESTORE 
my ge Haste 
vs > 
MOV 2(SP)*4(SP) ite oe BFack FOR RETURNING 
MOV (SP)+, (SP) 
8s ROVE SO ERNE FOR ASCII DIGIT 
“BYTE 5 t SERMTNATOR FOR ROUTINE 
SOCNT: .BYTE 0 :OCTAL DIGIT COUNTER 
SOFILL: :BYTE 0 :ZERO FILL SWITCH 
0 *:NUMBER OF DIGITS TO TYPE 


SOMODE: .WORD 

-SBTTL SAVE AND RESTORE RO-RS ROUTINES 

gs HELAKKAREASAESLA LAE LELRE SARE LHL RALAASHARAHLALALAA LAA LHRALALELELE 
: SAVE RO-RS 

;#CALL: 

i SAVREG 

UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


3% 

3 #TOP---(+16) 
3% 42---(4+18) 
ot $4 m—=RS 


3% +8---R3 

pie 

$e 18——-RO 

SSAVREG: 
MOV RO,-(SP) ;;PUSH RO ON STACK 
MOY ORBY =p} te PueH Re ON STARK 
MOV R3,-(5P) PUSH R3 ON STACK 
YOR’ =¢ep) tT EUeH Re ON STACK 
MOV gelsP),~(SP) i SAVE PS OF MAIN FLOW 
MOV een ta? ;;SAVE PC OF MAIN FLOW 
MOV 2e(SP),-(SP) ;;SAVE PS OF CALL 
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DZRXAE.P11 SAVE AND RESTORE RO-RS ROUTINES 
2297 013070 016646 000022 MOV 22(SP),-(SP)  ;;SAVE PC OF CALL 
ce38 01 oooda2 RTI 
300 s#RESTORE RO-RS 
2301 s*CALL: 
# RESREG 

2303 013076 SRESREG: 
2304 013075 O12b66 oo0022 MOV (SP)+,22(SP)  ;;RESTORE PC OF CALL 

13102 O1 p00022 MOV (SP)+;20(5P) $:RESTORE PS OF CALL 
£306 013106 Oiebbs p00022 MOV (5P)+/22(5P) 3:RESTORE PC OF MAIN FLOW 

13lle Ol oo0022 MOV (5P)+;20(5P)  $:RESTORE PS OF MAIN FLOW 
e308 013116 O1eb0s MOV (SP)+°RS ::POP STACK INTO RS 

13120 012604 MOV (SP)+°R4 ::POP STACK INTO RY 
2310 Ol3lee Oleb03 MOV (SP)+'R3 POP STACK INTO R3 
2311 013104 Oles0e MOV (SP)+’R2 :POP STACK INTO Re 
e3le 013106 O12601 MOV (SP)+/RI ::POP STACK INTO RI 
e313 013130 012600 HOV (SP)+/RO ::POP STACK INTO RO 
als .SBTTL TTY INPUT ROUTINE 
2317 © PRESSES ESRRE SEARLE RSRE SLE R AS RALE LALA LRAARAESRHRS LEAKE EAE RHA REESE 
2318 013134 177560 Sts: .WORD 177560 +s a 
013136 177562 STKB: 177562 He 
2321 
esce g3 SOFTWARE SUITCH REGISTER CHANGE ROUTINE ee 
2304 *#ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
2325 ; #SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
a] 013140 022737 000176 001214 beccuin ec cee #SWREG, SWR caer THE SOFT-SWR SELECTED? 
013146 001074 15$ ::BRANCH IF 
2329 O131S0 105777 177760 TSTB = ASTKS *:CHAR THERE 
SD ee ee 77754 Se aSTKB.-(SP) eave te cane AROUND 
2332 O13i62 O42716 177600 BIC #tC17?, (SP) Ha x THE ASCII 
5333 013165 022726 000007 #7, (SP34+ *:1S IT A CONTROL G? 
2334 013172 OO! BNE is$ :?NO, RETURN TO USER 
2335 013174 123727 013714 000001 CMPB = SAUTOB, #1 :ARE WE RUNNING IN AUTO-MODE? 
2325 Ol 001456 BEQ 1S$ *:BRANCH IF YES 
a 013204 1 013665 TYPE  ,SCNTLG 3 ECHO THE CONTROL-G 
2339 013210 i 013672 SGTSWR: TYPE SMSWR He CURRENT CONTENTS 
2340 0132014 01374 176 MOV SWREG, -(SP) *:SAVE SWREG FOR TYPEOUT 
2241 1 3ce0 1 o44OL T °:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
e342 Ol3ece | 013703 TYPE  ,SMNEW > PROMPT FOR NEW SWR 
S33 ptae58 bpeoe deotam « £ea+! 7 EAN Re 
2345 013232 aeed 177676 7S: TSTB = ASTKS CHAR THERE? 
gate 013236 100375 BPL 7§ ::IF NOT TRY AGAIN 
2348 013240 11774 177672 MOVB  @$TKB,-(SP) ;;PICK UP CHAR 
ea3 0132044 O42716 1 BIC #tC17?, (SP) *:MAKE IT 7-BIT ASCII 
2351 
2252 








MAINDEC-11-DZRXA- 
DZRXAE.Pi1 


013250 


ane 


ume 


Phas IP REIRaeeRGR 


rT 


OOOOOOOOOOOOO0OO00000000 
reorery 


0 2b be b= bee Pe bt bh bs 2 bh BB bt ft Ba Pe fn fs fe 


eee 
8 


Stata atatatatatatatad 
SSERDRRAIE 


rer flee ee 
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0000eS 


pag0de 


021627 


7b 


000757 


bpioee 


000001 
177574 


8 
es 


a 


a 
: 


000023 


' 
j 
‘ 


165702 
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9$: CMP (SP), #25 
ne 
TYPE SCNTLU 
20$: ADD be. SP 
BR 198 
10S: MP (SP), #15 
NE OARS 
TST 4(5P) 
BEQ 11 
MOV 2(SP), aSWR 
11S: R00. 
14$: T § 
CMPS =-« SINTAG, #1 
BNE 15 
MOV #100, 3STKS 
155: RTI 
16$: JSR PC, STYPEC 
CMP (SP), #60 
BLT 18S 
CMP (SP), 867 
BGT 18$ 
BIC #60, (SP)+ 
TST 2(SP) 
BEQ 175 
ASL (SP) 
ASL (SP) 
ASL (SP) 
17$: INC 2(SP) 
BIS -2(SP), (SP) 
18S BOE "Soues 
BR 20$ 
.OSABL LSB 


: RDCHR 

+r RETURN HERE 

b 

SROCHR: MOV (SP), =(SP) 
MOV 4(SP) ,2(SP) 

1S: TSTB = STKS 
BPL 1$ 
MOVB aSTKB,4(SP) 
BIC #106127). 4(SP) 
CMP 86s H(SP), #23 
BNE 3$ 

23: TSTB = ASTKS 
BPL 2s 
MOVE a$TKB,-(SP) 


+:1S IT A CONTROL-U? 
;s;BRANCH IF NOT 

3;YES, ECHO CONTROL-U (fU) 
IGNORE PREVIOUS INPUT 
:LET’S TRY IT AGAIN 


si08 IT A_<CR>? 
:;BRANCH IF NO 
57 YES, IS_IT THE FIRST CHAR? 
se H IF YES 
Fs aay SWR 


33 
.: TACK 

tT EGO < Ae; <LF> 

: : RE-ENABLE ry KBD INTERRUPTS? 


3s BRANC 
;;RE-ENABLE TTY KBD INTERRUPTS 


55 SESE SEE IESE EE ESE SE AE SEE SE ESE ESERIES REHEARSE RHEE REE ERE ERE E ER 
sATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


;; INPUT A SINGLE tig BL FROM THE TTY 


; ;CHARACTER IS ON 
;;WITH PARITY BIT STRIPPED OFF 


FOR A CHARACTER 
UNTIL_ITS THERE 
CHARACTER 


Sewe @eewe ee ee ee wee ee ee we 
fa 
~ 
za 
Mm 
q 


wewe eee ee ee ee ee wee ee we 
. . ° . 
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eo 
a 


ie Bila Be oy 
ie 
e415 O13See ooocc4 
241 Read 003003 
241 13$32 O42766 O00040 
2418 01384 00000e 
2419 
e420 
e421 
2e 
e3 
e424 
2425 
2426 O13S42 010346 
2427 013544 012703 913650 
e4¥e8 013550 Oee703 013660 
2429 013554 101405 
2430 013556 104405 
2431 013560 112613 
cis fi eebe ae 000177 
en Boe 
aoe 
SP tee thee Ges 
2438 013606 ie?7e3 000015 
2439 013612 Oe 
e440 013614 1 177777 
2441 013620 104400 012610 
e O136e% 012603 
3 O0136e6 011646 
2444 013630 016666 000004 
2445 eer 0 013650 
BS hee 
e448 013647 000 
2449 013650 000010 
buee post 3 
2453 013700 020075 000 
e454 013703 040 047040 
13710 036 000040 
iid 
13715 
e458 
2459 
a 


000140 
000175 
000004 
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OS 





{ #40177, (SP) ;;MAKE_IT 7- SCII 
Rd (SP)+, kel a fr A contrat =o? 
BNE 2 HIE T DISCARD 
33 BR tee) #140 YES, ,RESUEE ASE? 
gt Sake Hone IF Y res 
CMP 4(SP), #175 i118 IT A SPECIAL CHAR? 
BGT 4 H IF ES 
BIC #40, 4(SP) MAKE IT UPPER CASE 
4S: RTI ACK TO USE 
angeetLvsasnseesensansnsvneiduetifiaeadeetenesnseenenen 
pATHIS: ROUTINE WILL INPUT A STRING FROM THE T 
3% ROLIN s;INPUT_A STRING FROM THE T 
2 x RETURN HERE DRESS IRST CHARACTER “HILL BE ON THE STACK 
x TERMINATOR WILL BE A BYTE OF ALL O’S 
SROLIN: MOV ;;SAVE R 
1$: MOV RaHTVen R3 *:GET 
2$: CMP #STTYINGS. ,R3 sj BUFFER FULL? 
BLOS 4§ *BR IF YES 
ROCHR *:GO READ ONE CHARACTER FROM THE TTY 
MOVB  (SP)+, (R3) ::GET CHARACTER 
10$:  CMPB #177, (R3) 7315 ITA 
BNE 3$ 339KIP IF NOT 
4§: TYPE $QUES *TYPE A °?? 
BR $ ::CLEAR THE BUFFER AND LOOP 
3S: Mo (R3), 9S >:ECHO THE CHARACTER 
CMPB 4S fs«a IS, (R3)+ $s CHECK FOR RETURN 
BNE LOOP IF NOT RETURN 
CLRB = -1 (R33) tit LEAR RETURN (THE 15) 
TYPE it TYPE A LINE FEED 
MOV SP)+,R3 R3 
MOV (SP), -(SP) ; ;ADJUST THE STACK AND PUT ADDRESS OF THE 
MOV 4(SP} 2(SP) oe FIRST ASCII CHARACTER ON IT 
MOV eSTTYIN, 4(SP) 
RTI ; RETURN 
9S: BYTE STORAGE FOR ASCII CHAR. TO TYPE 
STTYIN: .BLKB >:RESCRVE 8 BYTES FOR TTY INPUT 
SCNTLU: ASC aud «12> — sCONTROL “U" 
CNTLG: .ASCIZ 74G/<15><1e> ZSCONT Lt "3 
SMSWR: .ASCIZ <15)><1l2e>/SWR = 
SMNEW: .ASCIZ / NEW = / 
SAUTOB: . BYTE p ;;AUTO MODE FLAG 
SINTAG: >: INTERRUPT MODE FLAG 
-SBTTL TRAP DECODER 


HBB HEH EHEHHEB HEHEHE HEHEHE HAH HHH HEBHBE 

tkTHIS ROUTINE WILL Aas KUP THE LOWER BYTE OF THE “T 

bg USE IT TO INDEX THROUGH 
THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 

+00 TO THAT ROUTINE. 


OF NSTRUCTION 
THE TRAP TABLE FOR THE STARTING ADDRESS 








AO ST eee MACY11 27(722) 20-SEP-76 15:46 PAGE 46 
DZRXAE.P TRAP DECODER 











2465 
2466 013716 O10046 STRAP: MOV RO, -(SP) : SAVE RO 
2467 013720 O16600 900002 MOV 2(5P),RO :iGET TRAP ADDRESS 
137g ? TST =(RO BY : 
l 10 MOVB (RO), RO IGHT BYTE OF TRAP 
2470 013730 006300 ASL Fosrtlon FOR INDEXING 
evel ot 916000 013740 MOV STRPAD(RO),RO  ;:INDEX TO T 
eve i 000200 RTS RO 260 TO ROUTINE 
ete .SBTTL TRAP TABLE 
2476 ;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
2477 BY THE “TRAP” INSTRUCTIO 
2478 
2479 ; ROUTINE 
2480  # . ‘icasagpiaasaasiesiiians 
2481 013740 $TRPAD: 
e4B2 Ol 012356 $TYPE ;;CALL=TYPE TRAP+0(104400) TTY TYPEOUT ROUTINE 
2483 013742 Ol2636 STYPOC $:CALL=TYPOC | TRAP+1(104401) TYPE OCTAL NUMBER WITH LEADING ZEROS) 
2484 Ol 012612 STYPOS ;3:CALL=TYPOS | TRAP+2(104402) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
ees 1 pisees STYPON ::CALL=TYPON | TRAP+3(104403) TYPE OCTAL NUMBER (AS PER LAST CALL) 
ete? 013750 013210 SGTSWR ;;CALL=GTSWR § TRAP+4(104404) GET SOFT-SWR SETTING 
2489 013752 013140 SCKSHR s;CALL=CKSWR § TRAP+5(10440S) TEST FOR CHANGE IN SOFT-SWR 
2490 013754 013422 >:CALL=RDCHR | TRAP+5(104405) TTY TYPEIN CHARACTER ROUTINE 
2491 013756 013542 *:CALL=RDLIN TRAP+7(104407) TTY TYPEIN STRING ROUTINE 
2492 013760 013040 Bevel ;;CALL=SAVREG © TRAP+10( 104410) SAVE RO-RS ROUTINE 
2493 913762 013076 G ::CALL=RESREG TRAP+11(104411) RESTORE RO-RS ROUTINE 
Ea .SBTTL POWER DOWN AND UP ROUTINES 
sie gs OMER DOWN ROUTINE cereOR Teer P 
2498 013764 012737 014130 000024 $PWRON: MOV SSILLUP, J8PWRVEC ;;SET FOR FAST UP 
2499 013772 012737 000340 o000e6 MOV #340 G, guburiecre siBRIO: 
2500 014000 D100¥E MOV RO,-(SP x Ro ON STACK 
2501 014002 010146 MOV *a(ep) syst Ri ON STACK 
2502 O14004 010246 MOV *=(SP) PUSH Re 
2503 014006 010346 MOV -(5P) PUSH R3 
2504 014010 010446 MOV -(5P) PUSH RY ON STACK 
2505 O14012 O10S46 MOV RS; -(SP) ; PUSH RS ON STAC 
2506 014014 017746 165174 MOV ISR, -(SP) + BUSH JSWR ON eTACK 
2507 014020 010637 014134 MOV SP, SSAVRE :SAVE SP 
2508 0140204 012737 014036 o00024 MOV #SPWRUP, J#PWRVEC':;SET UP VECTOR 
2503 014032 OO0000 HALT 
2510 014034 000776 BR 2 ;;HANG UP 
ele gs FREAK KLEE EES SKE EERE REE RA ERE EERE ESE BE LS ER RRE KERR ERE FERRER ERE 
2513 “POWER UP NE 
eel 014036 01 14130 000024 §$PWRUP: MOV sss JOPURVEC istTE FOR FAST DOWN 
1S O14044 01 14] MOV 
2516 O140S0 005037 014134 CLR SSAVRE’ pHa LOOP FOR THE TTY 
2517 014054 014134 1S: INC SSAVRE WAIT FOR THE INC 
2518 O14060 O01 1 
2519 014062 012677 165126 MOV (SP)+, ISWR ue STACK INTO aSWR 
2520 O14066 012605 MOV (SP)+)R5 POP STACK INTO RS 
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DZRXAE.P11 POWER DOWN AND UP ROUTINES 


2521 014070 012604 MOV + od Aa its iva re ay 
eSee 014072 


Bas flee ne a a | 
5264 BiSERF Moy SIE He Hi ig 
2525 014100 012600 MOV 
2528 gM b12737 p13764 oo0024 MOV SSPURON. QUPWRVEC’ : ise] P tHe POWER DOWN VECTOR 
14116 9127 340 000026 MOV #340, HPWRVEC+2 ; 
ee8 pi4ti6 iow TYP Aeron “ R FAILURE 
141 141 SPWRMG: .WO SPOWER ?:POWER FA ie MESSAGE OINTER 
2530 O14l22 012716 MOV (PC)+, (SP) ::RESTART A 
e53l gies 002700 $PWRAD: gl#ORD RESTART RESTART AD 
praise Bp0005 SILLUP: HALT js THE POWER UP SEQUENCE WAS STARTED 


2533 

2534 014132 000776 BR 2 33 + ORE THE POWER DOWN WAS COMPLETE 
2535 000000 SSAVRE: O ;;PUT THE SP HERE 

2536 014136 005015 O47520 O42527 SPOWER: .ASCIZ <15><12>"POWER” 

2538 
2540 


.EVEN 
-SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


2541 iTHIS ROUTINE MILL CONVERT A IGCBIT UNSIGNED BINARY MEER 10 ON 
esye2 ETHTS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER T 

eis : UNSIGNED DECIMAL ASCIZ NUMBER. 

2545 : MOV NUMBER,-(SP) | ;;PUT BINARY NUMBER ON THE STACK 
eS46 % JSR PC, J#$SB2D : 


“CALL 
2547 + RETURN *:ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 


2550 O14146 016637 OO0002 O14176 $SB2D: MOV 2(SP),1$ 53 SAVE BINARY NUMBER 

2551 O14154 012746 O14176. . MOV #15,-(SP) ::SET POINTER 

2552 014160 004737 O14202 JSR PC, deSDB2D CALL DOUBLE LENGTH CONVERT 
2553 O14164 062716 oO00005 ADD #5; (SP) ONLY ALLOW FIVE CHARACTERS 
2554 O14170 012666 o00002 MOV (SP)+,2(SP) ; PICKUP POINTER 

2555 014174 000207 RTS PC >; RETURN 

2556 014176 O00000 ooo000 1S: .WORD 0,0 

2557 -SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


2esss8 
2ess3 eee sete eet ets etree tte t ttt tt ttt ttt tt ttt ti ttt titi tt e! 
2560 THIS wig fs: WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
2561 *¥DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
2Sbe2 *¥POSITIVE. 
2563 t 
2564 3% MOV #PNTR,-(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 
2565 % ISR PC, a#$DB2D 
2566 3% RETURN 3; THE FIRST ADDRESS OF ASCIZ 
2567 3;I1S ON THE STACK 
| S2e6 
2570 Ol42e02 104410 $DB2D: SAVREG $3 BONE REGISTERS 
2571 O14204 016602 o0000e MOV 2(SP),Re PICKUP THE DATA NTER 
2572 014210 012700 014362 MOV #SDECYL, RO iiGet ADDRESS OF “BOECVE * STRING 
e573 014214 010066 000002 MOV RO, 2(SP3 T ADDRESS OF ASCIZ ETRING ON STACK 
2574 O14 012201 MOV (R2)+,R1 + BT CKUP THE BINARY NUMBER 
75 O14 Dieses MOV (R2)+ 
2576 O14, 12737 000012 014300 MOV #10. ;;SET UP TC DO 10 CONVERSIONS 








cote 14232 
78 014236 
2$79 


pee eReoe 
: 


PRR RRR 
DOVTKM£Ww-O 
S 
fH 


BR 


BRR 


MAINDEC-11-DZRXA-E 
OZRXAE.P11 





Macyi 
12704 014312 
1e70S 014314 

161401 


O2eSeS 
0S2703 000060 


OO46 
00 O16600 000004 


sats 014436 


001406 
122710 000060 








27( 722) 


3$: 


4§: 


STNPWR: 


SDECVL: 


e0-SEP-76 1 
DOUBLE LENGTH BINARY TO DECIMAL ASCI 





5: 
I 


-BLKB 














MOS 
& PAGE 4g 
ONVERT ROUTINE 


#STNPWR, RY 
#STNPLIRS2, RS 


(R4)+,Re 
CHS), (RS)4 


R3 ORO) 
(PO)+ 


(RO)+ 
PC 


le. 


;;ADDRESS OF TEN POWER 


;;CLEAR PARTIAL 
;; SUBTRACT TEN POWER 


;38R IF TEN POWER TO LARGE 
-ADD 1 TO PARTIAL 
LOOP ae SUBTRACTED VALUE 


s;MOVE TO NEXT TEN POWER 
ent, PARTIAL TO ASCII 


siBR OT IF 
TERMINATOR 
i }RESTORE REGISTERS 
Lge! URN 
+3 
;;1.0&08 
;;1.0&07 
;;1.0€06 
;;1.0&0S 
3;1.0E04 
331.003 
;;1.0E02 
;31.0E0i 
;;1.0&00 
;;RESERVE STORAGE FOR ASCIZ STRING 


5p RERRRRER EERE EEE EAER EERE ERE RE ELE ERE A EER EAL EEA RE RE RELL LALLA RERERE 


; TYPE NUMERICAL ASCIZ STRING, RIGHT JUSTIFIED 
j REPLACING LEADING ZEROS WITH SPACES 


FIRST ADDRESS OF ASCIZ STRING MUST BE ON TOP OF THE STACK 


RTJUST: 


1$: 


MOV RO, -(SP) 
mov 4(SP) RO 


M 
TSTB (RO) 
CMPB #’O, (RO) 


1cK OP Ress F S OF ASCIZ STRING 
ie DDRES al Ore OUT 
THI _ Ve T TOR 
te Yes! 
s1S IT 
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oo O0O00 
ee 


Boe RH BESR 


O000000 O000 OO OOO 
— 
on We 


savenes skh 














042520 
042040 
051101 


026101 
052123 
042440 

000 


0S2040 
000 
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DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 





s1F NO GO PRINT IT 
;1F YES a i IT WITH A SPACE 


ne #'0,-(RO) STRING OFF a & secon PUT BACK THE LAST ONE 


MOV (SP)+,RO 
MOV (5P)+; (SP) 
RTS PC 


TORE RO 
{RESTORE THE STACK 


; TYPES 16 BIT WORD IN DECIMAL 


Wey ey ~(SP) ;PUT NUMBER TO BE TYPED ON STACK 


; CONVERT NUMBER TO DECIMAL 
; TYPE THE DECIMAL NUMBER 
-ASCIZ “UNEXPECTED D D MARK” 

-ASCIZ “D D MARK MISSING” 


-ASCIZ “DATA, NO STATUS ERROR” 


-ASCIZ “ ON TRACK” 


-ASCIZ ” 7 SECTOR” 


-ASCIZ <15><12>" BYTE BAD GOOD"<«15><1a> 





<15><12>"CAUTION - IF YOU DESIRE TO TEST UNIT 0” 








MSINDEC-11-DZRXA-E pecyit e7 (732) 2. EP-76 15:46 PAGE SO 
DZRXAE.P11 DOUBLE LENGTH ey NARY TO DECIMAL ASCII CONVERT ROUTINE 
coe hehe 3 1S gso10s . eMSCII «15*<12>"REPLACE LOAD MEDIUM WITH A SCRATCH DISKETTE” 
Ea 147, as Pa . 
$1 0147 ? Beasts oo 
goa 14734 Bs 44 
14742 Mi] ll 101 
2634 014750 1S23 1524 
263s ieee 110 O4SS23 
ze 14790 1 0471 eASCIZ «15><12>"THEN PRESS CONTINUE” 
ss O14 US 1S2 
2639S O1S004 O4144O 047117 O44S24 
2700 O1S0le OSeS16 
a teed OY7E16 ns 3 O44S22 MNODRY: -ASCIZ “NO DRIVES READY"<15>< 12> 
oe bisme Gait Ge? ieee 
e706 O1504O O2e0040 O20040 O20040 TAB: eASCIZ <40><40><40><40><40><40> 
2707 O1504% 000 . 
eros 015047 040 900040 DBLSF: -ASCIZ <40><40> 
sik 9150S2 oosois 00d MCRLF: -ASCIZ <15><le> 
ae o1so0ss 104 ooo MEOP: -ASCIZ “BD” 
s7i> 015057 oss 000 MEREOP: -ASCIZ “=” 
ie 015061 007 000 MABELL: -ASCIZ <07> 
ote 015063 10S OSile2 051117 MERHEADER: | -ASCIZ “ERROR CONDITIONS ™ 
S751 Sieore paused ONPLI? Gediea | 
zee Bieion ana 
ow ot i: 0471 052111 O30040 MUNITO -ASCIZ “UNIT 0 ™ 
e7eb 
sree 015116 at O0S2111 O3044O MUNIT! -ASCIZ “UNIT 1 * 
oe 015124 
e730 015126 fad 020123 O42502 MDELET: -ASCIZ “HAS BEEN DELETED.” 
273 tated 0471 2040 046105 
15142 0521 210s 
e734 015150 116 Bae MINTVEC -ASCIZ * INT VECTOR = 
27% 015156 Bi s0e 04 lee 
es 015154 
015167 lz2 041530 020123 MRXCS: -ASCIZ “RXCS = 
2739 015174 020075 000 
oat tte O40 OS4i22 O41104 MRXDB: -ASCIZ " R — Sows 
os 15204 036440 000040 
ug 015210 OS2l23 052101 051525 MASTAT -ASCIZ “STATUS A = ™ 








MAINDEC-11-DZRXA-E 
DZRXAE.P11 DOUBLE LENGTH BINARY TO 


015216 


015224 
015232 


015240 
o1S244 
01S2SC 
0152S4 


1 
1 


PERSREPERERCr COOL RSRERBRARRES Ctr sone hen Enunner ee 


040440 


0S2123 
041040 


00S015 
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036440 
0$2101 


R 
8 


000040 
051525 
000040 
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CIMAL ASCII CONVERT ROUTINE 


MBSTAT: 


DBLLF: 
MPAT: 
MTEST: 
MSEQ: 
MINTER: 


MUKNINT: 





-ASCIZ “STATUS B = 


~ASCIZ «15><12><12> 

-ASCIZ “P= ™ 

-ASCIZ “T= “ 

-ASCIZ “S= * 

-ASCIZ “NO INTERUPT AT DONE ERROR” 


-ASCIZ “UNKNOWN INTERUPT” 


-ASCIZ “TOTAL READ CHECK ERRORS = ™ 


-ASCIZ “FILLBUFFER “ 


-ASCIZ “EMPTYBUFFER “ 


-ASCIZ “DRIVE(S) ™ 
-ASCIZ “TEST HUNG"<15><12> 


-ASCIZ “NONSTANDARD TRACK / SECTOR LIMITS” 


-ASCIZ “OD=" 
-ASCIZ “ID=" 
-ASCIZ “FIRST=" 





















06 





DO6 


Q DECIMAL ASCII CONVERT ROUTINE 





E Se 


20-SEP-76 15:46 PAG 


) 
T 


722 
Y 


e7( 
I 


1 


MACY1 
DOUBLE LENGTH B 


ll -E 
Pll 


C- 


I 


~ASCIZ “INIT.DONE NOT SET ERROR™<15>< 12> 


-ASCIZ “LAST=" 


24 MINITI: 
0 


051501 036524 MLAST 
052105 
051117 


“Th. 
~~ 4 


aut 


114 
000 


; 


Reeeeeeee 


1 
051 
Dues 
O4e4 
04 
OS111 
O41 
O41 


BS 

4 

ae 

5610 
HEY on! 


-ASCIZ “INIT.DONE SET ERROR” <15)< 12> 


-ASCIZ “D D ERROR” 


-ASCIZ “RECOVERABLE “ 


440 
122 
000 
O42440 MDDER: 
000 
053117 MREC 
042514 


1 


358% 

end me 

oe oe oon I odo 4 ae 
- 


pat 


ot oe 


O-UMTiINoON wc 
aban bon fenton tendon bes tonto 


fx 
p= Saw 
a 
ual. 
Le 9 
5 & a 
2 a 
85 fain 
Re ore 
caw oe 
rk eee 


052114 032040 MHALTY: 
000 


e716 Sosbis 
p13733 439 ret OL D20124 MHALT3: 


ot tte time cml 


i 
04 
O1S674 O42S22 O42101 OOOO4O MREAD: 


HURRA RRR MERGES 


-ASCIZ “DATA CRC ERROR” 


-ASCIZ “ UNRECOVERABLE “ 


-ASCIZ “HALT 11” ¢15><12) 
-ASCIZ “PARITY ERROR” 


-ASCIZ “SEEK ERROR” 


-ASCIZ “WRITE “ 


4 O30440 MHALTI 
1440 
ll2e 

oiess MUNREC: 
000 


05211 
p000i2 
o4os24 
2ua0 
000 
71 
10s 
boc osilos bavees couse 


BR Gee BBS 


tes tented “t-te =e sé 


es RRSREREELEREERAUUS 


$3 30g 


Sn Dae icone 


1 
1 
1 






| 
| 
| 
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DZRXAE.F it DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 

























016034 051105 O47Se2 OCe0le2 MNOFLAG: -ASCIZ “ERROR FLAG ERROR” 

pt 6198 peered 04244 
cer5 1 ll lli 
2861 016055 l22 030530 020061 MOUMP: ~ASCIZ “RX11 DUMP” 
cos 016062 052504 050115 000 

4 ata 1 OS1122 OS1117 MERS: -ASCIZ “ERRORS” 
1 0001 

2867 016076 O44123 051117 020124 MSHORT: -ASCIZ “SHORT DUMP” 
cose 016108 OS2504 050115 000 

016111 1 Os MRESTART: -ASCIZ “RESTARTS = ™ 
eer Blbiie oseise Gevies betd7s 

0161 
oar 016125 051501 020123 MNOPAS: -ASCIZ “PASS ABORTED” 
2875 0161 041101 OS1117 O4eSe4 
2876 016140 
oara 016142 oO40S20 051523 OS1SOS MPASS: -ASCIZ “PASSES = ™ 
te O01615SG 036440 O00040 
2881 015154 051127 OSe iit 042524 MWRTEN: -ASCIZ “WRITTEN “ 
cons 16162 020116 
ess4 016165 057 o00040 MSLASH -ASCIZ “7 ™ 
2886 016170 OD0040 SPACE: -ASCIZ <40> 
2888 016172 051105 oO47S22 051522 MCODES: -ASCIZ “ERRORS PER ERROR CODES"<15><12> 
esses 0 Nae pel toe aye 
seu ot 14 Dili? beisos bosois 
Fay a] pieces 124 EST O4SSO3 MTKLOG: -ASCIZ “TRACK ACCESSED MOVED TO UNIT O UNIT 1 ERRORS"<15><12> 
ae fies wos Glel bee 
om ioe it 042105 
2899 «(01 1 S51 24 
Se i ui 

1 1 1 

is SiS 
coe tl i} oso pale 042516 MNONE: ~ASCIZ “(NONE)"<15><12> 
coy 16316 OO6451 1 
soe Ol6322 047507 042117 000 MGOOD: -ASCIZ “GOOD” 
2910 Oj 1440 042510 -ASCIZ “® CHECK SUM ™ 
egil tee puseo3 1440 046525 
23i2 Ol6342 O00040 
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lolol =] 
rateateatoat oat 
£ 
~ 
Tw 


PURE ER RULER SS Sea oRe cau DUBREB UNO ERNN MSE eee 






an 
$11 
eSe23 
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igsse Gerad O61080 Ossisa 
016360 O30461 O00 


eASCIZ <15><12>"RX11 7 RXV11" 


-ASCII «15><12> “TRACK LIMITS SELECTED OUT °F RANGE,” 


~ASCIZ “USING OD=0, ID=114"«15><12> 


~ASCII <15><12> “SECTOR LIMITS SELECTED OUT OF RANGE,” 


-ASCIZ “USING FIRST=1, LAST=32"<15><12> 


-ASCIZ <15><12> “MAINDEC-11-DZ2RXA-E” <15><12> 


5; RRRERELELE REALE EELLRA ELLA REESE LAL RAL LE LLLA LE LAL ERA LLLA LEAL RE EERE 


; THE FOLLOWING LOCATIONS ARE USED FOR DATA STORAGE,RETRY COUNTERS 
;ACCESS COUNTERS ETC. 


;FOR SETUP PURPOSE RORETRY MUST BE FIRST ON RETRY LIST 


—s 
Oo00000 
see © & @ 


;FOR SETUP PURPOSE SRETRY MUST BE LAST ON RETRY LIST 


;GENERAL ERROR COUNTERS 





DaRRAE. Pl 


cacecchesicecs sicsicacsiaieatsacied, 


= 0 
WOnNoW £WTU-O 


S88S88s8sss 


pists 


—---- 





017024 
01 


O00 
ee 


Seaperenenay722y Ge 


= 


—e 
oF FR 


rere 
mr 


o£ 


OOOO OOOCOOOOOOOOOO0O0O0O0000000 
NNNNNNNS 
= mo 


017174 


017660 


me ne ee 
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~DZRXA-E 
1] OFRNASSUBLE LENGTH BINARY TO DECIMAL ASCIT CONVERT ROUTINE 
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PARLOG: 0 ;FOR SETUP PURPOSE PARLOG MUST BSE FIRST ON LOUNTERS LIST 
HPARLOG: 1] 


NOERLOG: 0 
UKNINT: : 
_iORIVE RELATED ERROR COUNTERS 


;"2" LOGS ARE FOR DRIVE UNIT “Z”ERO 
:NON"2” LOGS ARE FOR ORIVE UNIT 1 


* NOTE: # 
beR ROR CODES MUST T BE CHANGED 
FROM THIS ORDER. ERROR DUMP 
ASSUMES TAGS OF LOGS ARE IN ORDER SHOWN. 


OOOOOOON OOOO OKOVOOOKOOKOKKO0D0O00000 


;ERROR CODES 
ERCODE: ~BLKW 17. 


; THE FLL CNIS BLOCKS OF Eons ARE TRACK ACCESS COUNTER AND 
HEAD MOVED TO TRACK COUNTERS ey ARE DOUBLE PRECISION 
;COUNTERS IN THE FOLLOWING FORMATT 


tLoc.x LOW ORDER WORD TRACK 0 
0C.x+2 HIGH ORDER WORD TRACK 0 


re hae HIGH ORDER WORD. TRAC FRACK’ 1 


‘oe. ACCESS / TRACK 
TKACC: -BLKW 232 


; TOTAL HEAD HOVERENT TO TRACK 
HOMOVE : -BLKW 2 





: 


‘ 
ns 
b= pee 

UJ 


SBaNee 


ee 
wo 


endtSEHESRRERS: 


Sa 


past ho b= Bs Gs f= B= 0 


Sak 
FUE 


Tw 
-_ 


RAPPER orruuruulrboruuorarurorarurorGe 
io 


P= Bt sm bo hs hh BB hb he 


BER 


sae a 2 





XA-E 


000115 


000115 


6 OE 


001402 


A 


ee 


<2 
ana 


i 8 


EEE 


oO~ 
4 
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20 
a 


2 Re SRE R 
Oy ge g2e 2 


SRS £2 RK 
R Bes 


Re 


— 





HO6 
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; THE FOLLOWING 2 BLOCKS OF COUNTERS ARE SINGLE PRECISION 


;ERROR PER TRACK_ON UNIT 0 
UOTRK: ~BLKW 115 


;ERROR PER kong ON UNIT 1 
UITRK: ~BLKW 115 


utente: ? OTA WRITE AND, READ FUNCTIONS DOUBLE PRECISION COUNTERS 
ROCNTR: -WORD 0,0 
;RESTART AND PASSES COMPLTED COUNTERS 


RESTCNTR: 0 

PASCNTR: 0 ;FOR SETUP PURPOSE PASCNTR MUST BE PLACED LAST 

U1LOG: BIT #BIT4,UNITSEL TEST ae utr IN_ OPERATION : 
BEQ 1$ a RETURN a INC. UNIT 0 COUNTERS 
ADD #2,R3 T THE CONTENTS OF _R 

1s RTS PC Le UBODRESS OF UNIT i ERROR LOG COUNTERS. 


SPRINTS ALL ERROR REPORT ROUTEEN 
PRINTS ALL ERROR LOGS AND OPERATING CONDITIONS 


S ebicaetavecieieinanateclaiasceetaaieslabieagammemaestaedalinean 


ERDUMP: HOV STACK SP 
TST SHORTRPT ;IS SHORT REPORT REQUESTED 
EQ. IS 5 :NO,PRINT LONG REPORT 
TYPE, MSHORT YES, TYPE SHORT REPOR HEADER 
1S: TYPE ,TAB 
TYPE * MOUMP j TYPE LONG REPORT HEADER 
2s: T MREV PRINT NAME AND REVISION OF PROGRAM 
ISR Pt 1COND ‘TYPE OUT SELECTED DRIVES AND TESTS 
qs! STCNTR stave THERE BEEN ANY RESTARTS 
TYPE eet START. *YES,PRINT OUT HOW MANY 
on , SGLDEC 
7 TYPE ,DBLLF 
3S: TST PASCNTR HAVE ANY PASSES BEEN COMPLETED 
4§ ies PRINT OUT HOW MANY 
TYPE , MNOPAS NO, TYPE PASS ABORTED 
nau 
4§: Pee MPASS ;TYPE OUT NUMBER OF PASSES 
MOV PASCNTR, 7S 
*~ JSR RS, SGLDEC 


TYPE ,MCRLF 
cs: TST SHORTRPT 31S THIS A SHORT REPORT 
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DZRXAE.P11 DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


BNE AERRS ;7ES,O0N’T PRINT WRITE/READ TOTALS 
;PRINTS TOTAL NUMBER OF SECTORS WRITTEN AND/OR 


Bee 
f 
i 
S 
A 


3084 READ FOR THE DURATION OF RUN TIME. 
3085 921295 1 O16154 TYPE ,MWRT PRINT WRT/RD MESSAGE 
1 1 16165 TYPE }MSL 
3087 Oeleve 104400 015674 TYPE ‘MREAD 
oes pe teee A OSTae nate TYPE DBL SE (SP) ADDRESS OF TOTAL WRITES ON STACK 
33 aes pees nthe JSR Pe. SaSpa2D TYPE TOTAL WRITES 
3091 Oele6& 004737 014376 JSR PC’RTJUST 
3092 Oele7e 104400 016165 TYPE ,MSLASH 
3093 Geil 01274 021034 MOV &RDCNTR, -(SP) sADDRESS OF READS ON STACK 
2034 O21 30e 004737 O1¥ede ISR PC, ausdee0 TYPE TOTAL READS 
oe B5t308 Touado bise48 Tee “BELLE 
3098 TYPE OUT MICRO CPU RELATED ERRORS 
3099 021316 104400 o150S2 AERRS F 
3100 Del 322 905737 017024 TST PARLOG WERE THERE ANY PARITY ERRORS 
3101 Oel 14 Q 1 ) 
3102 021330 013737 017024 0o21342 MOV PARLOG, 20$ YES, TYPE OUT THE NUMBER 
3103 02133 OO04S37 O14446 JSR RS, SGLOEC 
3104 Oel34e o00000 208: OPEN 
3105 O21344 104400 015047 TYPE ,DBLSP 
3105 021350 104400 016017 TYPE 'MPAR 
3108 ae sper a7 Ot DSe TYPE ACRE WERE THERE ANY HARD PARITY ERRORS 
3109 ae at (4 BEQ 1S ‘ 
3110 021366 013737 017026 021400 MOV HPARLOG, 21$ sYES, TYPE OUT THE COUNT 
311 1374 O14446 JSR RS, SGLDEC 
311 1400 21S: 
311 1402 1 015047 TYPE ,DBLSP 
3114 O21408 104400 015755 TYPE | MUNREC 
aE lute Bag Bienes Te tnt 
3117 rate ioe79o 017030 1S: TST NOERLOG ANY STATUS ERROR FLAG ERRORS 
aig 14 DOL14 IF NONE CHECK NEXT ERROR 
il 14 Tea? 017030 o21442 V NOERLOG, 24S YES, TYPE OUT COUNT 
3120 021436 O04S37 O14446 JSR RS, SGLDEC 
a2 Bits TE on PP as 
3 1450 t see TYPE ‘/MNOFLAG 
TE be 1460 hos7a7 17034 3S TST IATER ANY NO_INTERUPT ON DONE ERRORS 
152 th ate BP 43 IF NONE CHECK NEXT ERROR GROUP 
3127 Oel466 013737 017034 021500 MOV INTER, 2S$ :YES,PRINT OUT NUMBER 
31c8 1474 014446 JSR RS, SGLOEC 
1 1S00 25s: OPEN 
3130 021502 1 015047 TYPE ,OBLSP 
3131 021508 194409 b15260 TYPE »MINTER 
FE ree : Siete TYPES DRI RELAT ERRORS 
134 021516 104400 015240 TYPE , 
3135S OelSe2 104400 015106 TYPE ;MUNITO sTYPE OUT COLUMN HEADINGS 
3136 021526 104400 O1S116 TYPE | MUNITI 








3137 021532 
3138 021536 


PORES ERSTE 


oO 
5 


2 ba be Bs Bae bs b 0 Fn bn Fe b= ba Be Bae me Pme bs be Be be be he Fe fe 8 2 Pe Oe bo 2 Be Pe 
RRs ta CCR OO ES 
N 


eee 
CMa 


RRR Ree eons 


G0 IOI) G9) GY) GI OG 6) BI) GIG) GI 6) 6) OY I GI 6) G9 GG) 6) GL) GG 6) 6 GG) GL) 6 GIG) GW) 6) GI GI) GI GI GI IG CII LIL GD 
CeBSBARRIGRES IT INA VITSSSSORATE RE COMUMADN MSS SER ES ES SaaS 


$2 B-2 b= b+ b= B+ 4 = B= + B= 


ee et oon 
OZRXAE.P11 


x 


Sper 


Grariuarstutar tes 
os 
om 


8 
Sats 


= 


ue 


= 
r 


See 


are 


Oooo00o0oO- 





016170 
016067 
0iS0Se 


Be, 
| 
| 
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7$: 


6S: 


30S: 


31S: 


138: 


Ss: 


12S: 
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PAGE S 


aia 3 » SPACE 
TYPE ,MCRLF 
UR Re 


MOV -(R1) 
JSR RS, SGL 


. & 


( 
MOV (SP) 
“Fi 


TRMMOneeeeeeees 


_" 
ww 
paar 













;Re_ USED AS AN ERROR PRINTED FLAG 
:PUT ADDR OF ZERO MARK. ON cue ACK 
:PUT ADDRESSES OF ALL REC 

;ERROR MESSAGES ON THE STACK 





tet FIRST ERROR CUONTER IN REGISTER 
ADDRESS OF 

‘IF O Re he SOFT ERRS DO HARD ERRS 
iN, SRINT PRROR COUNTER 

VE 1 tae CLEAR 

OR_ COUNTER 

Pe UST R a NEXT UNIT 0 COUNTER 

Sy ACK FOR NEXT ADDRESS 
GO TEST OT tone OF COUNTERS 


;MAKE ERROR PRINTED FLAG NON ZERO 
;TYPE CONTENTS OF UNIT O COUNTER 


;ADJUST R1_ FOR UNIT 1 COUNTER 
TYPE COUNTER,GET ADDR OF NEXT IN Rl 


; TYPE ERROR MESSAGE FROM STACK 





;GET NEXT COUNTER 

;PUT ADDR OF ZERO MARK ON THE STACK 
;PUT ADDRESS OF ALL HARD ERROR 
;MESSAGES ON THE STACK 


PUT FIRST HARD ERROR COUNTER IN Rl 
GET ADDRESS OF MESSAGE FROM STACK 
SHED ERROR 


I 
1 FOR NEXT UNIT O LOG 
TACK FOR NEXT ADDRESS 









OZRXAE. 


papetat tat ata 
BBIRARLS 





Secnnesse 


es SEREUTOnCeS 





RENNIE 
WOnmuUcWwUeHO 





SIURISSSISS 





MAINDEC- fi 


RRSRSRARR 


AINae ROQSRESSRES PS TOR 


Re 


RRSBE RESRR 


ata 
aN 
Altt= 


Be 


-DZRXA-E 


ae 


o 
bos 
ru 
w 
SN 


Bae 


je 


8 
agg 


oe Ce 
quiz 
~~ 


e 


g es 


asic 


ds 


g 


S5588 
diet § 
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Jeedee 
014446 


015047 


O2e04e 
O14446 


015047 
015755 


015052 





KO6 
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BR 12$ 
118: Hoy N aa hy Bet sTYPE CONTENTS OF UNIT O COUNTER 
_ TYPE  DBLSP 

(Ri) ;ADJUST R1 FOR UNIT ! COUNTER 

ney (RL)s 333 ‘TYPE UNIT 1 LOG 

JSR RS, SGLDEC 
333: 

TYPE ,DBLSP 

s TYPE UNRECOVERABLE 

MOV (SP)+, 14S | 

ea TYPE sERRUR MESSAGE FROM STACK 


OPEN 
TYPE, MCRLF 
RI _ GET NEXT LOG 

;PRINTS ERRORS PER ERROR CODES 

BERRS: TST Re ;W9S AN ERROR PRINTED IN THE LAST GROUP 


S “IF Re IS NONZERO BRANCH 
TYPE , TAB 
YPE TYPE NONE 
S$ LR Re *CLEAR ERROR PRINTED FLAG AGAIN 
TYPE ,DBLLF 
TYPE MCODES ; LYPE ERROR PER ERROR CODE 
MOV 2 GET Bho DF Peet peRROr CODE 
2s: CMP RO, #22 iN S THE HE LAST CODE PRINTED 
R TYPTRK es aT sh tt necro 
3S: TST (RL)+ ESt FOR NEXT ADDRESS 
BNE 1$ iF SNOT of OPE Be OOGnT AND CODE NUMBER 
INC _RO *INC CODE COUNTER 
1S: MOV -(R1),4$ sPUT CONTENTS OF COUNTER IN OPEN 
JSR Fos SGLDEC *FOR TYPE OUT 
oyBE , TAB 
MOV RO,R2 sPUT CODE NUMBER IN REGISTER TO 
ASL Re TYPE IT OUT IN THE FROM OF ERROR CODE 
ASL Re 
ASL Re 
MOV Re, -(SP) i 3SAVE R2 FOR TYPEOUT 
TYPOS Ype--OCTAL ASCII 
.BYTE 4 + PE 4 DIGIT(S) 
‘BYTE 1 TYPE LEADING ZEROS 
TYPE .MCRLF 
R ;SET UP FOR NEXT COUNTER 
ST (R1)+ >GET NEXT ERROR COUNTER 
sPRINTS TRACK ACCESS,HEAD MOVEMENT ,AND ERRORS PER TRACK 
TYPTRK: TST Re WAS AN ERROR PRINTED IN LAST GROUP 
5 ne IF PRINTED ERROR FLAG NONZERO BRANCH 
TYPE 'MNONE ; TYPE NONE 
cS: TYPE }DBLLF 











ag 
gar = 
ee 


eS SN UN 
x 


sa 
os 


MAINDEC-11-DZRXA-E 
DZRXAE.P 


bor i3t 
104 


022514 
016223 
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000115 


1$: 


10$: 
es: 


20-SEP-76 15:46 60 
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PAGE 


TST SHORTRPT 
ee MTKLOG 
oa Vv $8 Froceau, RY 


MOV 
MOV ag ae »R1 


ADD #4 

TST Ra 
BNE 10$ 

TST 2(R4) 
BNE 10$ 

ADD #4,R3 
TST(R2}+ 
TST (R1)+ 
BR 123 

JSR RS,SGLDEC 
OPEN 

TYPE ,SPACE 
MOV R4, -(SP) 


st 8. ox 


JSR RS SGLDEC 
Is (R1) 

BEQ 7 

TYPE ,SPACE 
YPE ’*DBLSP 

MOV (R1)+, 4 
JSR RS, SGLDEC 

BR 11 


TST (R2)+ 
TST (R1) 


BEQ 7$ 
TYPE . TAB 

R 22 

ST (R1)+ 
YPE ,MCR 
CMP 2S, #115 
BNE 1$ 
CLR SHORTRPT 
HALT 


;IF SHORT REPORT DON’T TYPE TRACK ACCESS OR ERRO 


MOV #HOMOVE-4, R3 
#UOTRK,R2” 


; TYPE TRACK ACCESSED COUNT 


;TYPE HEAD MOVED TO COUNT 


;TYPE UNIT 1 ERRORS 


;G0 TO NEXT TRACK 


TES DONE 


;TYPE FORMAT OF ERROR PRINT OUT 
: TRACK ADD TER 
‘SET UP ADDRESS OF TRACK ACCESSED 
ADDRESS OF Bp MOVE 
SUNY : ERROR R TRACK COUNTER 
“ADJUST FOR ADDRESS OF NEXT COUNTER 
"HAS THIS TRACK BEEN ACCESS 
:YES PRINT OUT THE COUNTERS 

EST UPPER WORD OF ACCESS COUNTER 


THIS TRACK _HAS NOT BEEN USED. ADJUST 
REGISTERS TO POINT TO NEXT TRACK COUNTERS 


; TEST FOR gt TRACK 


TYPE TRAC ER 
; THIS LOCATION USED AS TRACK ADDR COUNTER 


ARE THERE 8 NY UNIT 0 ERRORS 
HECK mt 
NO, UNIT 4 Te ORS 


;ARE THERE ANY UNIT 1 
:NO,GO ADJUST POINTERS 


ERRORS 


;NO_ERRORS, pe REG.FOR NEXT COUNTER 
HERE ' AN y rt 1 ERRORS 


* ARE 

*NO,GO TO NEXT T 

:YES. TYPE TAB FOR AE ACENENT 

GO TYPE THE NUMBER 

*NO ERRORS,ADJUST REG. FOR NEXT COUNTER 


;HAVE ALL TRACK ERRORS BEEN TYPED 
;NO TYPE THE NEXT ONE 
SEt UP FOR LONG REPORT 





a a ee ee 


ne a ee ee ee ee - ee 


MO6 
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3305 ’ 
3306 022514 900000 SHORTRPT: 9 
$307 022516 000000 ZERO: 0 


08 
3303 oc0001 «END 
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MAINDEC-11-DZRXA-E 


OZRXAE.P11 


ADJSUM OO0S6S6 
AERRS 021316 


ruminfeteretetetstetatatetet=tatatetetetayd 
HLGIV-O DOIEALOUHO we 


44 4 4 4 4 4 4 0 4 4 4 4 4 4 4 4 4 4 
dabdotal 
WONMU LWT 


tata et tt n tet at tt atate ta tetera tet atetetetetetet | 


2 
F 





CROSS REFERENCE TABLE -- USER SYMBOLS 


-_— 
as 


bb bt on b 2 ps fh bs fh bs ho he 
Co 
a 
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DZRXRE PL) CROSS REFERENCE TABLE -- USER SYMSOLS 
gente 1070 1824 18338 
CONT 4i2 1243 le7és 
CONT it ER eae 
peat 785 7878 
lle 10608 
10578 1075 
CR = S3e 2174 ele4 
li 23808 
oR 004565 987 Site 
CRCOLOG 017044 23788 / 
CRETRY 017020 937% luise 29648 
CRLF = 00200 Sue 2145 2184 
BaTagy O10Ni 1b718 «168ue 1690* 1699% 1709" 17174 17268 172% 1741s 
TACK 126 3068 938% 9982 i206 1233 
DATACR 7 Je 997 1001 10288 
DATAER 1173 11978 
DATALO 01706 cesbbes 
DATARE 017012 9s4# l265# 29618 
DATAO 010422 1662 16808 
bee tee 1663 16908 yi 
15240 615 788 Sos 1022 1054 1072 1106 
3083 30693 30% 3134 3215 3248 
DBLSP 015047 587 60S 610 le2e leet 1554 1SE5 1571 270398 
3130 3164 3163 3197 3202 3277 3287 
DOCHK 005204 970 10798 
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